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INTRODUCTION TO PDOS 
TRAINING SEMINAR SYLLABUS 


OVERVIEW OF SYLLABUS 

This syllabus is arranged into four sections. They are 
follows: 

1. Overview and Class Agenda '< 

2. Session Notes 

3. Exercises 

4. Sample Answers to Selected Exercises 
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OVERVIEW OF SEMINAR 


This seminar is designed to meet your needs as a PDOS user 
whether you are a beginner at PDOS or an advanced user. It will 
be informal and your questions and comments throughout the 
seminar will be appreciated. The approach for most of the 
material will begin by discussing the subject and then follow the 
discussion by doing a 'hands on' exercise. 

The first day, we'll concentrate on the development tools of 
PDOS and how to develop using the system. This day will be of 
most benefit to you if you have never used a PDOS system. 

The second day, the PDOS internals, and high level language 
tools. The internals will introduce you to the format of the 
task control blocks, system variables, and the format of disks 
used by the file manager. This day will build upon the first day 
by providing greater detail to the functions of the PDOS system. 
If you are more experienced, you should gain helpful knowledge on 
how to best use PDOS. The high level languages will cover the 
unique features of the implemented languages on PDOS and some of 
the useful extensions to aid in programming under PDOS. 

Finally, we’ll concentrate on the advanced features of 
PDOS and how to build down to an application with run modules. 
Also, we will discuss how to customize a PDOS system along with 
implementing additional I/O devices. You will gain the most out 
of this day if you have had hardware and 68000 assembly exper- 
ience . 

At the conclusion of each day, questions and answers will be 
entertained. At the conclusion of the seminar, tours of Eyring 
will be available. 

In conclusion, the seminar is a general introduction to the 
PDOS operating system and will not give you a comprehensive 
in-depth study of PDOS. We are planning future courses to 
address various aspects of PDOS and supported languages in 
greater detail. 
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SEMINAR GOAL 

1. Beginners should be able to develop on a PDOS system. 

2. All should gain an understanding of development tools 
available . 

3. Advanced users should understand where to begin on inter- 
facing to PDOS . 


AGENDA 



DAY 1 

8 : 00 

Continental Breakfast 

9 : 00 

Session 1 * — PDOS Overview 
Session 2 — Getting Started 
-The PDOS Monitor 

10:30 

Br eak 

10:45 

Session 3 — A Development Session 
-Edit 

12:00 

Lunch 

1:00 

Session 3 (con 't) 
-Assemble 
-Link 

2:00 

Session 4 — Advanced Monitor Commands 
-Procedure Files 

3:00 

Br eak 

3:15 

Session 5 — Debug 

4:00 

Session 6 — Character I/O 

5:00 

Open for Questions & Answers 
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DAY 2 


8:00 Session 7 — PDOS Tasking 
10:30 Break 

10:45 Session 8 — Advanced PDOS File Manager 
12:00 Lunch 

1 

1:00 Session, 9 — Languages 

- BASIC 

- C 

- FORTRAN 

- Pascal 

1:30 Session 10 — - PDOS Internals' 

2:00 Session 11 — Hardware Interface 

- Task Device Service Routines 

- BIOS Device Service Routines 

- File Drivers 
3:00 Break 

3:15 Session 12 — PDOS Run Modules 

4:30 Session 13 — PDOS System Generation and Installation 

5:00 Open for Questions & Answers 

ADDITIONAL SESSIONS 

Session 14 — PDOS Customer Services 
Session 15 — Tour of Eyring 
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SESSION 1 


PDOS OVERVIEW 


GOALS : 

1. You will understand the design objectives of PDOS and 
the purpose of the operating system. 

2. You will be introduced to the PDOS development package. 

NOTES : , 

THE PDOS DESIGN OBJECTIVE 

1. Develop on the target hardware. 

* No need for expensive development hardware. 

* No time lost in transferring from host to target. 

* You don't have to work with emulators. 

* You work with actual hardware. 

2. Allow easy control and interface to hardware. 

* PDOS allows easy installation of hardware. 

* Hardware may either be controlled at task level or system 
level . 

3. Use little EPROM space. 

* PDOS is small . 

* PDOS can be built down to use only the parts you need for 
your application. 

* PDOS is written in 63000 assembly. 

4. Be fast to provide realtime response. 

* Critical execution paths have been carefully optimized. 

* Low overhead in task switching . 

* Can be event driven with priorities. 

THE PDOS DEVELOPMENT PACKAGE 

1 . Media 

* 5 1/4" disks standard 

* 8" disks 

* EPROMs 

2 . Documentation 

* PDOS Reference Manual. 

* User guides (future). 

* Installation guide. 

* Application notes. 

3 . Ready-to-Boot system 

* Bootable disk. 

4. Licensed by CPU. 

* Runtime module licenses available separately. 
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SESSION 2 


GETTING STARTED 


GOALS : 

1. You should learn how to boot PDOS on a system. 

2. You should learn some basic monitor commands. 

\ 

NOTES : 

BOOTING PDOS 

1. Most systems are auto boot; some require firmware boot 
commands . 

2. Most will boot off floppy first, then try other boot 
locations . 

3. Full installation may require EPROMS or setting jumpers. 
These are described in the installation guide for your 
hardware. Full installation will be discussed in a future 
session . 

DO EXERCISE 2-1 — BOOTING PDOS 

THE PDOS MONITOR 
1 . Monitor syntax . 

# — auto-create file. Preceeds filename string. 

. — multiple command separator. 

() — ■ accept the enclosed argument as single" argument . 

@ — filename wildcard; match 0 or more characters. 

* — filename wildcard; match 1 character. 

> — the monitor prompt. 

2 , 3>CC <ARG1 > , ... 
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2 . 


Helpful Commands 


HE — help command 

>HE [<subnarae>] 

ID — PDOS ID/set date and time. 
* MTIME P/B program. 

DT — date/ time. 

DO EXERCISE 2-2 — HELP/ ID 


PDOS Revision Level 




Kernel Assembly Date 


Machine type 
and Features 


PDOS/ 68 OOO R2.6f 02/25/85 bios 
ERII, Copyright 1983 js' 

FORCE CPU-1 BIOS (Pl/T Clock) 02/25/85 


Date=05/17/85 
Time =1 4:56:25 


/ 

BIOS Date 




3. PDOS File Handling Commands. 

AF — append one file to the end of another 
>AF <sour ce> , <dest> 

CF — copy from one file to another file. 
>CF <sour ce> , <dest> 

DF — define a file. 

>DF <name £ , <size> } 

DL — delete a single file. 

>DL <name> 
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Lev 

1 

4. 


DM — delete multiple files (see wildcards). 

>DM <name> — Prompts with Y/n/A 

MF — : make file by allowing text input from the keyboard 
[ESC] Exits. 

>MF <name> 

RN — rename a file. 

>RN <oldname> , <newname> or 
>RN <name> ,< level > 

SA — set the PDOS attributes for a file. 

>SA <name> { , <attr ibute> } — ie : TX , SY, OB, 

AC, BN. 

SF — ■ show on a terminal the contents of a file. 

>SF <name> 

LS — list directory of files. (see wildcards) 

>LS <name> -- LS Lists all file levels on 

disk . 

Name: ext Type Size Sect Date created. Last update 

NAME : 1 5/5 ' 020D 14:12 01/05/84 14:13 01/05/84 


The PDOS filename format: 

ACCCCCCC : CCC ; LLL/DDD 

A. Start with an alphabetic character . 

B. Add up to seven additional characters. 

C. Extension is denoted by colon; if colon present, must 
have one to three additional characters. 

D. Levels are denoted by semicolon and number of level 

CAUTION: level is a sort key only and not part of 

filename . 

E. Disk unit number denoted by slash followed by disk 
number . 

F. If DISK and/or LEVEL is omitted, then default is 
assumed. 
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Table of Recommended File Names 


None 

EXECUTABLE file 

: OBJ 

OBJECT 

: SR 

SOURCE 

: MX 

S RECORD 

: TMP 

TEMPORARY 

: C 

C 

: FOR 

FORTRAN 

: PAS 

PASCAL 
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THE PDOS FILE MANAGER 


Physical Disk Logical Disks 



• A physical disk may be broken down 
into many logical disks 

• A single logical disk contains a directory 
of files. 

• Filenames are 1 to 8 characters with a 

3 character optional extension and level. 

• Level is used for a work area on the disk 
(subdirectory). 

• Filenames are NOT unique if only a 
different level number is used. 


Directory 
Lev Namerext 

1 DAhfcSR 

2 DAhfcSR 


Not possible in 
standard PDOS. 
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PDOS Disk Commands . 


LV — 0..255 levels. LS for levels 
LV >LV {< level >} 

SY — 0..255 disks Sets working .disk number up to 4 
SY >SY { <disk> { , <disk> . . } } 

1 

SP — amount of space available on disk. 

SP >SP { <disk> } 

FREE=total free, largest contiguous sector 
USED=actual use/total allocated 

6. In future exercises 'NAME' is to be your first name for 
exercise filenames. 


DO EXERCISE 2-3 — VALID FILENAMES 
DO EXERCISE 2-4 — FILE COMMANDS 
DO EXERCISE 2-5 — DISK COMMANDS 


7. PDOS Memory Commands. 

AM — amount of memory free to task. 

AM >AM <filel> , <file2> 

FM — free memory from your task. 

FM >FM <kbytes> 

GM — return free memory to your task. 
GM >GM { <kbytes> } 

ZM — zero out your task memory. 

ZM > ZM 


DO EXERCISE 2-6 — MEMORY COMMANDS 
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MEMORY COMMANDS 


GM 

AM 

FM 

START 

FM 10 

TASK 


TASK 

0 


0 



FREE 


ZM 


ZM 

GM 5 

0 

i 



1 

[TASK 


TASK 

! 0 
1 


0 

i 

I 

+ 



0 



FREE 




FREE 


AM List memory adjacent to TASK 
GM - Get available memory 

FM - Free memory FM -n xemove 

memory from PDOS allocation map 

ZM - Zero task's memory 
Memory managed in 2K byte pages 
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8. Command Line Editing. 

* A line recall feature and editing features are 
provided by PDOS. 

[ESC] — ignore current line. 

~C — abort current line. 

— recall last line. 

T — move right one character . 

~H — move left one character 

~D — delete character to the right. 

[RUB] — delete character to the left. 

“I — insert mode. 

DO EXERCISE 2-7 — COMMAND LINE EDITING 


also 
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SESSION 3 


A DEVELOPMENT SESSION 


GOALS : 

1. You should learn how to use the PDOS Editor — MJEDY 

2. You should learn how to code, assemble, and link a program. 

NOTES: 

A. OVERVIEW OF DEVELOPMENT 

1. Concept or need. 

2. Algorithm or flowchart design. 

• 3. Selection of language. 

* BASIC 
* C 

* Pascal 
* FORTRAN 
* Assembly 

4. Write the program. 

5. Assemble the program. 

6. Link the program if other modules are involved. 

7. Execution and debugging. 
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* Basic Editing commands 
— Use of [ESC] key 

— Control Keys 
— Help Key [ESC]"F 
— Cursor movement 

"K 

I 

"H "L 

I 

"J 

— Top / End of text "T / "Z 
— Auto-insert feature 
— Rubouts [DEL] ["DEL] 

— PDOS Reference Manual chapter 11-pages 4-12 
DO EXERCISE 3-2 — MJEDY HELP KEY 
DO EXERCISE 3-3 — BASIC EDITING 

3. File Interaction. 

* "Write command — "Wfilename [ESC]V 

* "Get Command — "Gfilename[ESC]V 

* On "W and "G pressing the "W or "G key twice recalls 
the last filename used. 

* "Quit Command — "QV 

* "New buffer Command — "NV 

* GO from PDOS monitor 

DO EXERCISE 3-4 — FILE INTERACTION 

4. Searches and Macros 

* Search for a string from the cursor forward 

— "S<STRING> [ESC] 

* Search for a string backward from the cursor 

— "B < STRING > [ESC] 

* [TAB], [CR] can be entered in by typing key. 

* Other control characters may enter by typing "V then 
the control character to find. (The control chars are 
displayed by adding $20 to the char value). 

* All search strings are terminated by a [ESC]. 

* The cursor is placed at the end of the string on a 
forward search, and at the start of the string on a 
backward search. 
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* To continue search after a string is found, but before 
any editing is done, type [ESC] again. 

* ''Define a macro — ~D 

* All commands and key strokes are remembered until ~D 
is typed again 

* 'Execute a defined macro — ■ 

* [ ESC ] ~ ZN [ ES C ] execute macro N times (-1 — infinite 
or until a search fails). "C will also interrupt a 
repetitive macro. 

DO EXERCISE 3-5 — GLOBAL SEARCH AND REPLACE 

5. ' Restoring and saving of macros as disk files. 

* Output macro to file — [ESC]~OFILENAME[ESC]V 

* Input macro from file — [ESC] "YFILENAME[ESC]V 

* The creation and verification prompt is same as ~G and ~W. 


DO EXERCISE 3-6 • — INPUT / OUTPUT OF MACROS 

6. Advanced text editing with deletion and pointer commands. 

* ~ ] - Delete from cursor to EOL 

* ~~ - Delete from cursor to and including the EOL 

* ~P - Place pointer into text 

* ~Y - Insert text in a file at the cursor 

THE FOLLOWING COMMANDS WORK WITH A POINTER: 

Output to a file from cursor to pointer 
Insert into ’up 1 (cut) buffer from cursor to pointer 
Delate text from cursor to pointer 
Insert text at cursor that is in the up buffer 
Move cursor to the pointer 

NOTE: ALWAYS DELETE THE POINTER BEFORE YOU SAVE YOUR TEXT (THE 

POINTER IS DELETED AS ANY OTHER CHARACTER) . 

DO EXERCISE 3-7 — BLOCK CUT AND PASTE 


* ~0 - 

* "'U - 

* ~ \ _ 

* 'A - 

* _ 
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B. MASM 


1 . The MASM command line : 

* PDOS Reference Manual 13-5 

MASM <SOURCE> , { <OBJECT> , <LIST> , <ERROR> , <XREF> } 

SOURCE = The input text 

OBJECT = The tag object output that may be executed 
. if fully resolved, or output for QLINK. 

LIST = Full listing of the program 

ERROR = List of errors. (Defaults to console if no 
file specified.) 

XREF = List of symbols and lines where used 
NOTES : 

A. If only MASM is typed, then you will be prompted for 
the filenames. 

B. PDOS will not create files that do not exist unless 
you prefix the filenames with a 1 #'. 

DO EXERCISE 3-8 — RUNNING MASM 

2. Program listing format. 

* Use 3F command to type your listing on the screen and 
follow along. 

* Pages 11-16 cover format: 

68K PDOS Assembler 10/17/84 

PAGE: 1 13:42 12/11/84 FILE: DAN : SR, CLASSWORK 


1 

0/00000000 : A08C0014 

START 

XPMC 

MES01 ; ASK FOR 

2 

0/00000004 :A080 


XGLU 


3 

0/00000006 : A056 


XCDB 


4 

0/0000000 8 :C2FC0064 


MULU.w 

#100, D1 

5 

0/0000000C : A08C001F 


XPMC 

MES02 ,*X 100 

6 

0/00000010 :A050 


XCBD 


7 

0/00000012 :A08A 


XPLC 


8 

q 

0/00000014 :60EA 

* 

BRA.S 

START 

-7 

10 

0/000000 16 : 0A0D454E54455220 

MES01 

DC . B 

$0A, $0D , ’ ENTER 

11 

594F5552204E554D 




12 

424552203D2000 




13 

0/0000002D: 20782031 3030203D 

MES02 

DC . B 

* x 100 = ' , 0 

14 

2000 




15 

0/00000037:00 


EVEN . 


16 

0/000000 38: 0/00000000 


END 

START 

Intr 
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68K PDOS Assembler 10/17/84 

PAGE: 2 13:42 12/11/84 FILE: DAN : SR, STANDARDS 

DEFINED SYMBOLS: 

MES01 0/00000015 MES02 0/0000002D START 0/00000000 
EXTERNAL DEFINITIONS: NONE 

EXTERNAL REFERENCES: NONE 1 

UNDEFINED SYMBOLS: NONE 
UNREFERENCED SYMBOLS: NONE 


3. External Linkage 

* XREF — Symbol is not in this file; look elsewhere at link 
time for it. 

* XDEF — Allow this symbol to be used in other files. 

DO EXERCISE 3-9 — EXTERNAL LINKAGE 


C . QLINK 

* PDOS Reference Manual Chapter 11, page 27, 52-69 
1 . QLINK Command summary 

* HELP - display all QLINK commands 

* INPUT - input a single object file 
. * ZERO - zero out the memory buffer 

* LIBRARY - load in only those object files that are needed 
from a library file 

* MAP - display the location and status of memory 

* OUTPUT - select for output the memory buffer to a file 

* SRECORD - specify srecord format in the output file 

* SYFILE - specify binary image format inthe output file 

* END - output the memory buffer to the file 

* QUIT - return to the PDOS monitor 

DO EXERCISE 3-10 — USING QLINK 
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SESSION 4 


ADVANCED MONITOR COMMANDS 


DALC 


You should learn how to use additional monitor commands. 
You should learn how to create procedure files. 


DTES : 


Procedure Files 

* Useful for repetitive command sequences. 


* May be "programmed" to allow modification at execution of 
- procedure file. 

i 

* Input is directed from a file instead of keyboard. 


* Input will be directed to programs using XGCC or XGCR or 
line edit commands . 

* Argument substitution. 


&0 — set by program control; usually a status number. 

&1..&9 — corresponds to argument 1 then 9 of the 
command line. 


&& — treat character as a single ampersand. 


* IF processor . 

= — IF arguments are equal, do command to right of '. 1 
# — IF arguments are not equal, do command right of '• 1 • 


£ GT — Goto a label string in the file allowing you to skip 
commands (often used with IF) . 


* IF-THEN-ELSE 

IF &l=<str ing> . monitor then commands . GT ENDIF 
monitor else commands ' 

GT ENDIF 

• ENDIF 


* Nested command files . 

— 3 Deep . 

* RC vs RS . 

RC — reset the current procedure file. 
RS — reset all files open to this task. 
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SESSION 5 


DEBUG 


GOAL: 

You should understand some basic debug commands. 

NOTES : 

* Resident debugger . i 

* Allows for break points, traces, disassembly, dumping of 
memory and registers. 

* Re-entrant for tasks. 

* Enter by PB command 
DO EXERCISE 5-1 -- DEBUG 

* The debug application note 

DO EXERCISE 5-2 — DEBUG Application Note 
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SESSION 6 — CHARACTER I/O 


GOALS: 

1. You should understand character output redirection under 
PDOS . 

2. You will understand how to baud a port. 

3. You will learn how to print and create log files. 

j 

NOTES : 

* PDOS Reference Manual Chapter 3 
1. The Character Input Path. 

* Only one task per input port. 

* PRT — location in TCB where input number is saved. 


INPUT PATH 





PRT 

determines 
wnich port 
buffer to 
look at 


User Program 
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2 . 


The Character Output Path. 


* More than one task may share output ports. 

* What is a unit? 

A unit (in the context of character I/O) is a path on 
which a character is sent on output. It may be logically 
linked to a character port, your terminal screen or both. 
It may also go to a file or nowhere. 

- U1P, U2P 

* What is a port / type? 

A port is the physical port on your hardware to which you 
link other hardware devices. The type is an indicator to 
PDOS to which output code to use. 

* What is a spool? 

It redirects output from a port to a file. 

* List task monitor command (LT) list out port assignments. 


Task Prt Tm Event Map Size PRT U1P U2P 

*0/0 64 1 0 404 1/1 1/1 3/2 


* The baud port monitor command (BP) sets up the physical 
port as well as U2P. Also allows to see port setup. 

Port Type f_pi8dbs Base Rate Task 

#1 1 00000000 FFFFC07 1 19200 0 

DO EXERCISE 6-1 — LT AND BP COMMANDS 
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OUTPUT 



3. I/O Redirection and Log Files 

* UN command — Allows for selection of output path 

* SU command — Directs path to file instead of port 

* SF with -Filename — Used to type files to terminal 

* The output flow 

* TTA, TTO, TTS driver files 
DO EXERCISE 6-2 — PRINT A FILE 
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SESSION 7 


PDOS TASKING 


GOALS : 

1. You should understand multi-user and multi-tasking. 

2. You should become acquainted with the task control block. 

3. You should understand task synchronization. f 


NOTES : 

* PDOS Reference Manual Chapter 3 
1 . The KERNEL 

* Multi-tasking, multi-user scheduling 

* System clock 

* Memory allocation 

* Task synchronization 

* Task suspension 

* Event processing 

* Character I/O processing 
2 . Tasks 

* Creation 
Monitor command 

CT TASK, SIZE, TIME+PRIORITY, PORT 

0 

Background tasking 
Father-son relationship 
LT Command 


rask Prt Tm Event Map Size PC SR TB BM EM PRT U1P U2P 

*0/0 64 1 0 368 00233A 2004 00B000 00CC46 067000 l/l l/l 3/2 

1/0 64 1 96 0 32 002174 2000 068000 068500 070000 0/0 l/l 0/0 


DO EXERCISE 7-1 — BACKGROUND DEVELOPMENT TASK 

Primitive 
. XCTB 

Startup table 
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* Termination 

Monitor command 
KT 

Pr imitive 
XKTB 

Auto termination 

Caution for Procedure files — MUST USE RC OR RS 
DO EXERCISE 7-2 — PROCEDURE FILES AS TASKS USING RC 

* The task cycle 


4 


PDOS TASK CYCLE 




1. Highest priority READY task always executes 

2. Round robin with tasks of same priority 


* The task control block 
— PDOS Reference Manual Pages 3-6 
DO EXERCISE 7-3 — THE TASK CONTROL BLOCK 
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3. 


Inter -task Communication. 


* Synchronization 

* Events (page 3-12 and 3-13 of PDOS Reference Manual). 
GLOBAL 0 . . 127 

LOCAL 128 ' 

* Event primitives 
XSEF 

XSEV 

XTEF 

XSUI 

EV MONITOR COMMAND 

DO EXERCISE 7-4 — MULTI-TASK EVENT SYNCHRONIZATION 

4. Task Priorities 

* Highest ready priority always runs. 1 is lowest; 255 is 
highest. 

* The TP command . 

* Task lock / unlock. 

DO EXERCISE 7-5 — TASK PRIORITIES 

5. Message Buffers 

* SM & KM Commands 

SM -1 to father task 

* XGTM on each prompt display. 

DO EXERCISE 7-6 — MULTI-TASK MESSAGES 

6. Time Delay Feature 

* EVENTS 112, 113, 114, 115, 128 

* XDEV 

DO EXERCISE 7-7 — TIMER TASK 
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INTERTASK 

SYNCHRONIZATION AND COMMUNICATION 


Events 


R 

E 

A 

L 

T 

I 

M 

E 

T 

A 

S 

K 



Massage Buffers 



Mailbox 



XLKF 

XULF 




XLKT 
XU LT 


Introduction to PDOS 


;*(/)>-{ m2 ir>m:n zoz 





SESSION 8 


ADVANCED PDOS FILE MANAGER 


GOALS: 

1. You should understand file structure of PDOS Disks. 

2. You should become acquainted with disk utilities. 

i 

NOTES : 

1. The NERD Standard 

* disk 0. .99, 100. .255 

* track 0 sides 1 and 2 info 

* 96 TPI 

NERD NUMBERING 

0... 255 available 

0 primary floppy 

1 secondary floppy 

8 RAM disk 

100 primary floppy with 

ability to R/W track 0 

Typical hard disk logical units: 

2 1/2 of winch #1 

3 1/2 of winch *1 

4 floppy image on winch *1 

5 i/2 of winch *2 

6 1/2 of winch * 2 

7 floppy image on winch * 2 
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SECTOR 0 


Sector N.. 
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lector /Disk=$0000 (0)/0 
I00-00F 50 44 4F 53 20 32 2E 36, 65 20 

I10-01F 09 40 00 50 88 00 08 00 00 A0 

I20-02F FF FF FF FF FF FF FF FF FF FF 


23 31 00 00 00 00 PDOS 2 . 6e#l . . . . 

09 40 A5 5 A FF FF .@.P @%Z.. 

FF FF FF FF FF FF 


SECTOR 0 
HEADER 


0 12 3 456 7 8 9 ABC 


f text name of disk 

D E F 


boot disk - 
sector 
number 

FF FF FF 


P 


current * of files 
in directory 


maximum 
+ of files 
for directory 


address to load 
boot sectors 
into memory 

number of 
boot sectors 


0* single sided 
disk 

FF*double sided 
disk 


.+ of sectors 
_this disk 
init'd to 


*A55A # hex 
-constant for 
valid disk check 


Start of bit map 
for sectors in use . 
Each bit represents 
a s-eclor in use. 

1 s used 0*free . 
First bit corresponds 
to sector 0. 


0 s single density 
FF: double density 
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*Directory Sectors 


FILE DIRECTORY FORMAT 


Main filename 


File extension Level 


3 4 5 6 7 8 


Reserved 


Number sectors 
allocated -1 


9 A BlCD EF 


* Bytes in 
EOF sector 


1 — ; 

"1 

t 

p 

«- 

-v 

La-— 

£ — 

— ± 

_±_ 



* 


± 

\ 

—A — 


Time created 


Time 
updated 


Attribute word 


Physical start 
sector number 


Date updated 


EOF File relative 
•sector number 


Date created 


Time Hours * 256 *4- minutes 

Date (2 digit year # 16+ month) * 32 + day 


Attribute word' 
0 1 2 3 4 5 6 


789ABCDEF 


1 A 

B 

O 

S 

B 

E 

TJ 

D 


n 

1 


1 


* 

* 

IS 

N 

B 

Y 

X 

[xj 

X 

R 

; ' 

[j 

LJ 

_ 

LJ 

UJ 

1 i 


* 


4- * 


* * * + 


r 


Reserved 
Driver 
Text 

Basic text 
Basic token 

Binary executable image 
Object tile 

Binary file (no meaning) 
Procedure- file 


T 


T Write protect 
Delete protect 
Contiguous 


Sector /Disk=$0002 (2)/0 

000-00F 41 53 4D 00 00 00 00 00 00 00 00 00 Q0 00 00 ASM 

010-01F 00 00 00 00 00 00 00 2E 0E 20 AS 97 0E 20 A8 97 ( . . ( . 

42 53 52 45 46 00 00 00 00 00 00 04 04 04 01 50 BXREF P 

00 00 00 2A 00 2A 00 35 0F 35 A8 F2 14 0C A9 17 . . . * . * . 5 . 5 (r . . ) . 


020-02F 

030-03F 


0A0-0AF 43 4C 50 54 58 00 00 00 00 00 00 00 02 04 00 17 HLPTX . 


0B0-0BF 


00 00 00 21 00 21 00 83 0E 23 A3 97 0E 2C A8 97 ... I . 1 . 


Introduction to PDOS 


35 




*File Sectors 


DATA SECTOR 



;ctor /Disk= 

= $0016 

(22)/0 












I0-00F 00 

00 00 

00 4D 41 

53 

4D 

20 

26 

31 

3A 

53 

52 

2C 

23 

MASM &1 : SR, # 

.0-01F 4F 

42 4A 

2F 38 0D 

49 

46 

20 -- 

26 

30 

2E 

52 

43 

0D 

4D 

OBJ/8. IF &0.RC.M 

10-02F 53 

59 46 

4C 20 4F 

42 

4A 

2F 

38 

2C 

23 

26 

31 

0D 

52 

SYFL 0BJ/8,#&1.R 

10-03F 43 

0D 00 

00 00 00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

C 

:0-04F 00 

00 00 

00 00 00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 


ictor /Disk= 

=$0017 

(23)/0 












0-00F 00 

18 00 

00 48 45 

4C 

50 

0D 

20 

46 

6F 

72 

20 

66 

7-5 

. . ...HELP . For fu 

0-01F 72 

74 68 

65 72 20 

68 

65 

6C 

70 

2C 

20 

65 

6E 

74 

65 

rther help, ente 

0-02F 72 

20 27 

48 45 20 

27 

20 

66 

6F 

6C 

6C 

6F 

77 

65 

64 

r 'HE ' followed 

ctor /Disk= 

=$0018 

(24)/0 












0-00F 00 

19 00 

17 53 43 

41 

4C 

09 

09 

50 

41 

53 

43 

41 

4C 

.... SCAL . . PASCAL 

ctor /Disk= 

=$0019 

(25)/0 












0-00F 00 

1A 00 

18 2D 20 

52 

65 

6E 

61 

6D 

65 

20 

66 

69 

6C 

. . . .- Rename fil 

ctor /Disk= 

=$0037 

(55)/0 












0-00F 00 

38 00 

36 69 6C 

65 

73 

3A 

0D 

0D 

20 

20 

20 

50 

4D 

. 8 . 6iles : . . PM 

ctor /Disk= 

=$0038 

(56)/0 












0-00F 00 

00 00 

37 4F 3A 

50 

41 

53 

20 

61 

6E 

64 

20 

50 

48 

. . .70: PAS and PH 
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3. 


File Utilities 


* MDDUMP 

- Used to view and edit disks . 

* MDDMAP 

- Used to verify disk links for files 

- Sample execution: 

68K PDOS Disk Diagnostic Mapper Utility 09/14/34 
Disk # = 0 
Output File Name = 

Disk Diagnostic Map 

Disk Name = PDOS 2.6e #1 SECTOR 0 DISK INFORMATION 

Files = 80/160 

Boot sector = 2368 

Boot size/addr = 136/$000800 

PDOS Sectors = 2368 

Disk Density = D 

0 ASM AC 1/1 14:32 04/23/84 14:32 04/23/84 

22-22 <== Sector numbers 

4 BXREF EX’ C 43/43 15:53 07/18/84 20:12 08/23/84 

336-378 

DO EXERCISE 8-1 — MDDMAP / MDDUMP 

* MCEATLE 

- Change Attributes and levels of selected files. 

* MLEVEL 

- Display files by level. 

DO EXERCISE 8-2 — MLEVEL 

* MDLOOK 

- Look for possible files on disk. 

* MDSAVE 

- Recover all possible files on disk. 

DO EXERCISE 9-3 — MDLOOK / MDSAVE 
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4. 


Disk Initialization Procedure. 


* xFRMT 

Hard Format — Function of Hardware device. 

xFRMT program. This is more fully described in Chapter 2 
of the PDOS Reference Manual. 

* MINIT 

Soft format — Gets disk ready for PDOS. 

MINIT program. This specifies the number of files and 
sectors for the disk. 

5. Disk Backup Procedure. 


* MBACK - Sector for sector image 

* MTRANS - File by file transfer 

* MDNAME - Gives disk a text name for listings 

6. RAM Disk 

* Dynamic any memory location 

* System Default is unit 8 (monitor changeable) 

* FM -N 

addr =$hhhhhhhh 

RD - CJ , N , $hhhhhhhh where U is the desired unit number 

for the disk and N is 4*the amount freed 

DO EXERCISE 8-4 — RAM DISK AND MTRANS 


7. File Access Modes 


* Read Only 

* Shared Random Access 

* Random Access 

* Sequential Access 

* Contiguous File 

* Delete Protect 

* Write Protect 

* File Lock 

* The RS Command (ARG for disk) 

* The FS Command (3-19) 

* What is a File Slot? 

* 8 Active Buffers 

* Most Recently Accessed Queue 
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FILE MANAGER 



OPEN 

CLOSE 

READ 

WRITE 

POSITION 


User program 
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1 > FS 

Slot Name ST SM PT SI EOF TN BF FLGS 

32 A; 1/1 C100 0057 0000A2DF 0000 0007/0E 0000 0000A25A 00000000 

- XLFN to get slot address 


FILE SLOT 


Filename 


Physical Memory — 
address to 
current byte 
(next byte to R/W) 
<256 then offset 
because file buffer 
is unassigned 



File Extensio 

7 8 9 A 


4 


Level Number 

I File Status 

E F/ 


Physical Disk 
Sector in buffer 



Lock Flag 
Shaded Count 


Number of 
bytes In 

POOS \EOF sector 
Disk * 

for file \ Task | 0C k 

open flags 

File relative 
EOF eector 
number 


File relative 
-sector mjmber 


Physical memory address 
of 256 byte file buffer 
0 * buffer is unassigned 


TASK LOCK / OPEN FLAGS 


0 12 3 


Task number 
which opened 
file 
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LOCK FLAG/SHARED COUNT 


o i 


O— Unlocked 
FF»« Locked 


Number of tasks accessing file 


FILE STATUS 


A 8 4 2. 1 

0123456 789AB CDEF 


71 


jrn 


Reserved 


File flags 


Driver fn 
channel 
file buffer 


$4 Contiguous 
$2 Delete protect 
Si Write protect 


j File altered 
Sector altered 


Access modes 

SA Bead only 
$6 Shared random 
S2 Random 
$4 Sequential 
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* Direct Disk Access 
XRSE XWSE 
BUFFER ADDRESS 
DISK NUMBER 
SECTOR NUMBER 

DO EXERCISE 8-5 — DIRECT DISK ACCESS 
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SESSION 9 


LANGUAGES 


GOALS: 

1. You should become acquainted with the various languages 
available on PDOS and how those languages can use the PDOS 
system . 

2. This is designed only as an overview and not as a detailed 
discussion of the languages. 


NOTES: 

1. BASIC 
BASIC FEATURES 

* Meaningful, Unlimited length variable names 

* Multiple line. Recursive functions 

* Local function variables 

* Extensive line editing commands 

* Fast 64 bit floating point 

* Context oriented strings 

* Full disk file interface 

* Stand alone run support 

* No 64k byte boundary restrictions 

* Intertask communications arrays 

* Assembly language support 

* Formatted print commands 

BASIC ENVIRONMENT 

* Semi-compilied 

* Line editor 

BASIC FUNCTIONS AND PROCEDURES 


t 


ABS 

— 

ABSOLUTE VALUE 


ADR 

— 

ADDRESS OF EXPRESSION 

- 

ADV 

— 

VARIABLE DEFINITION ADDRESS 

(ARRAY VECTOR) 

ALOAD 

— 

LOAD OBJECT FILE 


AND 

— 

TRUE IF OPERANDS NON-ZERO 


ATN 

— 

ARC TANGENT 


BAUD 

— — 

SET BAUD RATE OF PORT 


BIT 

— 

TEST/SET BITS IN VARIABLE 


BYE 

— 

RETURN TO MONITOR 


CALL 

— — 

ASSEMBLY LANGUAGE INTERFACE 


CLEAR 

— 

ZERO BASIC VARIABLE SPACE 


CLOSE 

— 

CLOSE FILE 


COM 

- 

- SHARED MEMORY AREA ACROSS 'RUN' AND 

COS 

— 

COSINE 
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DATA — CONSTANT DEFINITION 

DATE — READ/SET SYSTEM DATE 

DEFINE — DEFINE FILE 

DEFN — DEFINE BASIC FUNCTION 

DELAY — SET TIMER TO EXPIRE IN 'N' TICS 

DELETE — DELETE FILE 

DIM — DIMENSION ARRAY VARIABLE 

DISPLAY — COPY FILE TO SCREEN 


ELSE 

EQUATE 

ERROR 

ESCAPE — 

EVENT 

EVF 

EXP 

EXTERNAL — 
FILE 

FILES 

FNEND 

FOR 

FNPOP 

FRA 

FREE 


EXECUTE THIS LINE IF PREVIOUS 'IF‘ WAS FALSE 
ASSIGN SIMPLE VARIABLE NAME TO ARRAY ELEMENTS 
DEFINE ERROR TRAP 
ENABLE ESCAPE TO STOP EXECUTION 
SET/ CLEAR EVENT FLAG 
TEST EVENT FLAG 
EXPONENTIATION 
DEFINE 'CALL'. ENTRY POINTS 
FILE I/O FUNCTIONS (SELECT, READ, WRITE, 

POSITION, LOCK, UNLOCK) 

DISPLAY FILE DIRECTORY 

DELIMIT MULTI-LINE USER FUNCTION 

ITERATIVE LOOP STATEMENT 

- CLEAN-UP AFTER ABORTING FROM USER FUNCTION 
FRACTIONAL PART OF EXPRESSION 
RECOVER SYSTEM MEMORY 


GETM 

GLOBAL 

GOPEN 

GOSUB 

GOTO 


GET TASK MESSAGE 

CREATE SHARED MEMORY AREA BETWEEN TASKS 

READ-ONLY OPEN 

BASIC SUBROUTINE CALL 

CONTROL TRANSFER TO LINE NUMBER 


IF 

IMASK 

IIi UT 


CONDITIONAL EXECUTION 
SET SYSTEM INTERRUPT MASK 


Si 




iSION 
JR) OF 


EXPRESSION 


KEY — SAMPLE PORT FOR CHARACTER 


LABEL 

LAND 

LEN 

LET 

LIST 

LISTRP 

LNOT 

LOAD 

LOCAL 

LOG 

LOR 


— DEFINE LINE NUMBER LABEL 

— LOGICAL ’AND' TWO OPERANDS 

— LENGTH OF STRING 

— VARIABLE ASSIGNMENT 

— DISPLAY PROGRAM IN MEMORY 

— DISPLAY PROGRAM TOKENS IN REVERSE POLISH ORDER 

— LOGICAL COMPLEMENT OF EXPRESSION 

— BRING BASIC PROGRAM INTO MEMORY 

— DECLARE VARIABLES LOCAL TO USER FUNCTION 

— NATURAL, LOGARITHM 

— LOGICAL 'OR' OF TWO OPERANDS 
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LXOR 


LOGICAL 'EXCLUSIVE OR' OF TWO OPERANDS 


MAIL — GLOBAL ARRAY FOR INTER-TASK COMMUNICATIONS 

MCH — STRING MATCH FUNCTION 

MEM — READ/WRITE BYTE IN MEMORY (8 BITS) 

MEMW — READ/WRITE WORD IN MEMORY (16 BITS) 

ME ML — READ/WRITE LONG WORD IN MEMORY (32 BITS) 

MEMP — READ/ WRITE BASIC VARIABLE ACROSS MEMORY PAGES 

NCR — NUMERIC VALUE OF CHARACTER 

NEW — CLEAR PROGRAM AND VARIABLES FROM MEMORY 

NEXT — END OF 'FOR' LOOP 

NOESC — DISABLE ESCAPE FROM STOPPING PROGRAM 
NOT — TRUE WHEN ZERO 

CASE STATEMENT FOR GOTO, GOSUB, LET 
OPEN FILE FOR SEQUENTIAL ACCESS 
TRUE IF EITHER OPERAND NON-ZERO 

GET COMMAND LINE 

CLEAN-UP AFTER ABORTING FROM SUBROUTINE 
PUT DATA TO CONSOLE 

SELECTIVE DELETE OF PROGRAM SEGMENTS 




RCP 

READ 

REM 

RENAME 

RESET 

RESTORE 

RETURN 

RND 

ROPEN 

RUN 


READ CURSOR POSITION 

READ VALUES FROM 'DATA' STATEMENTS 

REMARK (COMMENT) 

CHANGE NAME OF FILE 
CLOSE ALL FILES 

DETERMINE WHAT ’DATA' STATEMENT IS READ BY ‘READ’ 

EXIT FROM SUBROUTINE 

RANDOM VALUE BETWEEN 0 . , 1 

OPEN FILE FOR RANDOM ACCESS 

EXECUTE PROGRAM 


SAVE — WRITE PROGRAM TO DISK (ASCII FORM) 

SAVEB — WRITE PROGRAM TO DISK (TOKENIZED FORM) 

SENDM — SEND TASK MESSAGE 

SGN — RETURN SIGN OF EXPRESSION 

SIN — SINE OF EXPRESSION 

SIZE — SHOW SIZE OF PROGRAM, TABLES, AND FREE SPACE 

SKIP — JUMP OVER ’N' LINES IN PROGRAM 

SOPEN — OPEN FILE FOR SHARED ACCESS 

SPOOL — REDIRECT OUTPUT TO FILE 

SQR — SQUARE ROOT 

SRH — SEARCH FOR ONE STRING IN ANOTHER 

STACK — DISPLAY 'GOSUB' STACK ENTRIES 

STOP — HALT PROGRAM 

SWAP — DELAY THIS TASK WHILE ANOTHER EXECUTES 

SYS — ACCESS TO SYSTEM VARIABLES 
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TAN — TANGENT OF EXPRESSION 

THEN — EXECUTE THIS LINE IF PREVIOUS 'IF' WAS TRUE 

TIC — CURRENT VALUE OF THE SYSTEM TIMER 

TIME — SET/READ SYSTEM TIME 

TRACE — ENABLE/ DISABLE DEBUGGING TRACE 

TSK — RETURN STATUS OF TASK 'N' 

UNIT — REDIRECT OUTPUT TO DIFFERENT PORT 

WAIT — SUSPEND ON EVENT 


C FEATURES 

* Full C Language 

* Provides direct access to over 100 PDOS system calls 

* Supports a subset of UNIX library for portability 

* Optimal code generation 

C ENVIRONMENT 

* Full native code 

* Uses PDOS MASM and QLINK 

C STANDARD LIBRARY ROUTINES 

ALLOC, MALLOC, CALLOC, REALLOC — DYNAMIC MEMORY ALLOCATION 

ATOI , ATOL, ITOA — ASCII CONVERSION ROUTINES 

CLOSE — CLOSE. A FILE SLOT 

CREAT — CREATE A FILE AND OPEN IT 

CTYPE — CHARACTER TYPE MACROS AND ' FUNCTIONS 

EXIT, _EXIT — CLOSE STREAMS AND EXIT TO MONITOR W/STATUS 

FCLOSE — CLOSE A STREAM 

FGETS — GET A STRING FROM A STREAM 

FOPEN — OPEN A STREAM 

FPRINTF , PRINTF, SPRINTF — FORMATTED OUTPUT ROUTINES 

FPUTS — PUT A STRING TO A STREAM 
FREE, MFREE — DYNAMIC MEMORY DEALLOCATION 
FSCANF, SCANF, SSCANF — FORMATTED INPUT ROUTINES 
FSEEK — POSITION A STREAM 

FTELL —.RETURN CURRENT POSITION IN STREAM 
GETC — GET A CHARACTER FROM A STREAM 

GETCHAR — GET A CHARACTER FROM STANDARD INPUT (MACRO) 

GETS — GET A STRING FROM STANDARD INPUT 

INDEX — RETURN POSITION OF CHARACTER IN STRING 

LSEEK — POSITION FILE SLOT 

OPEN — OPEN A FILE SLOT 

PUTC — PUT A CHARACTER TO A STREAM 

PUTCHAR — PUT A CHARACTER TO STANDARD OUTPUT (MACRO) 
PUTS — PUT A LINE TO STANDARD OUTPUT 
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READ — READ DATA FROM FILE SLOT 

RINDEX — RETURN POSITION OF CHARACTER IN STRING (f /RIGHT) 
RTIME — RETURN SYSTEM TIME, DATE 

SBRK — ADD ' N' BYTES TO TASK BREAK (MEMORY ALLOCATION) 

STRINGS: STRCAT , STRNCAT, STRCHR, STRRCHR, STRCMP, 

STRNCMP , STRCPY, STRNCPY, STREND, STRLEN, 

STRPBRK, STRSPN , STRTOK — STRING HANDLING FUNCTIONS 

SYSTEM — SPAWN A TASK AND PASS IT A COMMAND STRING 
TTYOPEN — OPEN A TERMINAL PORT AS A STREAM 
UNGETC — PUSH A BYTE BACK ONTO AN INPUT STREAM 
UNLINK — DELETE A FILE 

WRITE — WRITE DATA TO A PORT/FILE SLOT 

C INTERFACE TO' PDOS PRIMITIVES 

XAPF — APPEND FILE 

XBCP — BAUD CONSOLE PORT 

XBFL — BUILD FILE LISTING 

XBUG — ENTER DEBUGGER 

XCBC — CHECK FOR BREAK CHAR 

XCBD — CONVERT BINARY TO DECIMAL STRING 

XCBH — CONVERT BINARY TO HEXADECIMAL STRING 

XCBP — CHECK FOR BREAK CHAR/PAUSE 

XCBX — CONVERT BINARY TO DECIMAL IN BUFFER 

XCDB — CONVERT DECIMAL STRING TO BINARY 

XCHF — CHAIN FILE 

XCHX — CONVERT BINARY TO HEXADECIMAL STRING IN BUFFER 
XCFA — CLOSE FILE WITH ATTRIBUTES ' 

XCLF — CLOSE FILE 
XCLS — CLEAR SCREEN 
XCPY — COPY FILE 
XCTB — CREATE TASK BLOCK 
XDEV — DELAY/ SET EVENT 
XDFL — DEFINE FILE 
XDLF — DELETE FILE 

XDTV — DEFINE USER'S VECTOR TABLE 

XERR — ERROR EXIT 

XEXT — EXIT TO MONITOR 

XFBF — FLUSH BUFFER TO DISK 

XFFN — FIX FILE NAME 

XFTD — FIX TIME/ DATE 

XFUM — FREE USER MEMORY 

XGCC — GET CHARACTER CONDITIONALLY 

XGCP — GET CHARACTER FROM PORT 

XGCR — GET CHARACTER 

XGLB — GET LINE IN BUFFER 

XGLU — GET LINE IN USER BUFFER 

XGML — GET MEMORY LIMITS 

XGNP — GET NEXT PARAMETER 

XGTM — GET TASK MESSAGE 
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XGUM — GET USER MEMORY 

XKTB — KILL TASK 

XKTM — KILL TASK MESSAGE 

XLDF — LOAD FILE 

XLER — LOAD ERROR REGISTER 

XLKF AND XULF — LOCK/UNLOCK FILE 

XLKT AND XULT — LOCK/UNLOCK TASK 

XNOP — NON-EXCLUSIVE RANDOM OPEN FILE 

XPBC — PUT USER BUFFER TO CONSOLE 

XPCC — PUT CONSOLE CHARACTER 

XPCL — PUT CARRIAGE RETURN/LINE FEED TO CONSOLE 

XPDC — PUT DATA TO CONSOLE 

XPLC — PUT LINE TO CONSOLE 

XPSC — POSITION CURSOR 

XPSF — POSITION FILE 

XPSP — PUT SPACE TO CONSOLE 

XRBF — READ BYTES FROM FILE 

XRCN — RESET CONSOLE INPUTS 

XRCP — READ PORT CURSOR POSITION 

XRDE — READ NEXT DIRECTORY ENTRY 

XRDM — DUMP REGISTERS TO CONSOLE 

XRDT — GET DATE/TIME 

XRFA — READ FILE ATTRIBUTES 

XRLF — • READ LINE FROM FILE 

XRNF — RENAME FILE 

XROO — OPEN FILE READ-ONLY RANDOM ACCESS 

XROP — OPEN FILE RANDOM ACCESS 

XRPS — READ PORT STATUS 

XRSE — READ SECTOR FROM DISK 

XRST — RESET FILE 

XRSZ — READ SECTOR ZERO 

XRTM — READ TIME 

XRTS — READ TASK STATUS 

XRWF — REWIND FILE 

XSEF — SET/CLEAR EVENT FLAG WITH SWAP 

XSEV — SET EVENT FLAG 

XSOP — OPEN FILE SEQUENTIALLY 

XSPF — SET PORT FLAG 

XSTM — SEND TASK MESSAGE 

XSTP — SET TASK PRIORITY 

XSUI — SUSPEND UNTIL INTERRUPT OR EVENT 

XSWP — SWAP TO NEXT TASK 

XSZF — GET DISK PARAMETERS 

XTAB — TAB TO COLUMN ON SCREEN 

XTEF — TEST EVENT FLAG 

XUDT — UNPACK DATE INTO STRING 

XUTM — UNPACK TIME INTO STRING 

XWBF — WRITE BYTES TO FILE 

XWDT — WRITE DATE/TIME TO SYSTEM CLOCK 

XWFA — WRITE FILE ATTRIBUTES 

XWLF — WRITE LINE TO FILE 

XWSE — WRITE SECTOR 
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XWTM — WRITE TIME TO PDOS 
XZFL — ZERO FILE 

ARITHMETIC FUNCTIONS — UNARY OPERATORS 
CEIL, FLOOR, FABS, FPNEG : 

CEILING, FLOOR, ABSOLUTE VALUE, NEGATION 

ARITHMETIC FUNCTIONS — BINARY OPERATORS 

FPADD , FPCMP , FPDIV , FPMOD , FPMUL , FPSUB : 

FLOATING POINT ADD, COMPARE, DIVIDE, 

MODULO, MULTIPLY, SUBTRACT 

CONVERSION FUNCTIONS 

ATOF, ETOA, FTOA : 

ASCII TO FLOATING POINT, 

FLOATING POINT TO ASCII ('E 1 AND ' F' FORMAT) 

FPLTOF , FPFTOL : 

FLOATING POINT LONG TO FLOAT, FLOAT TO LONG 

LOGARITHMIC/ EXPONENTIAL FUNCTIONS 
EXP, POW, LOG, LOG10 , SQRT : 

EXPONENTIAL, POWER, NATURAL LOG, COMMON LOG, SQUARE ROOT 

FREXP, LDEXP , MODF — MISCELLANEOUS EXPONENTIAL 

TRIGONOMETRIC FUNCTIONS 

AT AN, AT AN 2 : ARCTANGENT 

COS, SIN, TAN : COSINE, SINE, TANGENT 

COSH, SINK, TANH : HYPERBOLIC COSINE, SINE, TANGENT 
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FORTRAN 77 


3 . 


FORTRAN 77 FEATURES 

* ANSI FORTRAN 77 by Absoft Corp. 

* FULL FORTRAN- 7 7 LANGUAGE FEATURES AVAILABLE 

* EXTENSIONS TO FORTRAN-77 FROM ABSOFT: 

- INCLUDE statement 

- dynamic linking < 

- parameters in the program statement 

- various allowable comment formats 

- multiple statements per line 

- the SELECT/CASE/CASE DEFAULT/END SELECT construct 

- DO/CYCLE/EXIT/REPEAT construct 

- VIRTUAL arrays 

- TYPE, ACCEPT statements 

FORTRAN PROGRAMMING ENVIRONMENT 

* SYMBOLIC DEBUGGER 

* EXECUTION PROFILER 

* LINKER, LIBRARIAN 

INTRINSIC FUNCTIONS 

INT [ INT , IFIX , IDINT ] — CONVERSION TO INTEGER 
REAL [REAL, FLOAT, SNGL] — CONVERSION TO REAL 
DBLE — CONVERSION TO DOUBLE 
CMP LX — CONVERSION TO COMPLEX 

ICHAR — CONVERSION OF CHARACTER TO INTEGER (PASCAL 'ORD') 

CHAR — CONVERSION OF INTEGER TO CHARACTER (PASCAL ' CHR ' ) 

AINT [AINT,DINT] — TRUNCATION 

ANINT [ANINT,DNINT] — NEAREST WHOLE NUMBER 

NINT [NINT, IDNINT] — NEAREST INTEGER 

ABS [IABS,ABS, DABS, CABS] — ABSOLUTE VALUE 

MOD [MOD,AMOD,DMOD] — REMAINDERING 

SIGN [ISIGN, SIGN, DSIGN] — TRANSFER OF SIGN 

DIM [ IDIM, DIM, DDIM] — POSITIVE DIFFERENCE 

DP ROD — DOUBLE PRECISION PRODUCT 

MAX CMAX0, AMAX1 , DMAX1 , AMAX0 , MAXI ] — LARGEST VALUE 

MIN [MIN0 , AMIN1 , DMIN1 , AMIN0 , MINI ] — SMALLEST VALUE 

LEN — LENGTH OF CHARACTER ENTITY 

INDEX — INDEX OF A SUBSTRING 

TRIM — TRIM TRAILING BLANKS 

REPEAT — STRING REPLICATION 

AIMAG — IMAGINARY PART OF COMPLEX ARGUMENT 
CONJG — CONJUGATE OF A COMPLEX ARGUMENT 
SQRT [ SQRT , DSQRT , CSQRT ] — SQUARE ROOT 
EXP [ EXP , DEXP , CEXP ] — EXPONENTIAL 
LOG [ ALOG , DLOG , CLOG ] — NATURAL LOGARITHM 
LOG10 [ALOG10, DLOG10] — COMMON LOGARITHM 
SIN [SIN, DSIN, CSIN] — SINE 
COS [COS,DCOS,CCOS] — COSINE 

Introduction to PDOS 50 






TAN [ TAN , DTAN ] — TANGENT 

ASIN [ASIN, DASIN] — ARCSINE 

ACOS [ACOS,DACOS] — ARCCOSINE 

AT AN [AT AN, DAT AN] — ARCTANGENT 

AT AN 2 [ ATAN2 , DAT AN 2 ] — ARCTANGENT (X/Y) 

SINH [SINH, DSINH] — HYPERBOLIC SINE 
' COSH [COSH, DCOSH] — HYPERBOLIC COSINE 
TANH [TANH, DTANH] — HYPERBOLIC TANGENT 
STRING COMPARISONS [LGE , LGT , LLE , LLT ] 

BYTE [BYTE , WORD , LONG] — INSPECT MEMORY AT AN ADDRESS 
SHIFT — LOGICAL SHIFT LEFT OR RIGHT 
4. PASCAL 
PASCAL FEATURES 

* Compatible on significant ISO standard 

* UCSD string extensions 

* Type override 

* Origin variables 

* 32 bit and 64 bit floating point 

* EPROMable and shareable code 

* PDOS interface library 

PASCAL ENVIRONMENT 

. * Compiled — NOT P-Code 

* Uses PDOS MASM and QLINK 

PASCAL FUNCTIONS AND PROCEDURES 


ARCTAN 

— 

ARC TANGEN 

COS 

— 

COSINE 

EXP 

— 

EXPONENTIATION 

LN 

— 

NATURAL LOGARITHM 

SIN 

— 

SINE 

SQR 

— 

SQUARE 

SQRT 

— 

SQUARE ROOT 

TRUNC 

— 

TRUNCATE TO INTEGER 

ROUND 

— 

ROUND TO INTEGER 

ABS 

— 

ABSOLUTE VALUE 

ODD 

— 

TRUE IF ODD 

ORD 

— 

ORDINAL POSITION OF ELEMENT IN ENUMERATION 

CHR 

— 

INTEGER TO CHARACTER TYPE CONVERSION 

SUCC 

— 

SUCCESSOR TO ELEMENT IN ENUMERATION 

PRED 

— 

PREDECESSOR TO ELEMENT IN ENUMERATION 

FLOAT 

— 

INTEGER TO FLOATING POINT CONVERSION 

BIIpose 


mms mam 
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PASCAL I/O PROCEDURES AND FUNCTIONS 


READ 

READLN 

WRITE 

WRITELN 

RESET 

REWRITE 

CLOSE 

PAGE 

PUT/GET 

SEEK 

EOF 

EOLN 

( PASCAL 


— READ DATA FROM FILE 

— READ LINE FROM FILE 

— WRITE DATA TO FILE 

— WRITE LINE TO FILE 

— OPEN FILE FOR READING 

— OPEN FILE FOR WRITING 

— CLOSE FILE 

— OUTPUT FORM FEED OR CLEAR SCREEN 

— READ/WRITE BINARY TO FILE 

— POSITION WITHIN FILE 

— TRUE IF AT END OF FILE 

— TRUE IF AT END OF LINE 

OFFERS A SIMILAR INTERFACE TO PDOS PRIMITIVES AS C) 
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SESSION 10 


PDOS INTERNALS 


GOAL: 

1 . You should become acquainted with some of the basic system 
var iables . 


NOTES : 

1. SYRAM — MSYRAM : SR 


* How address is obtained 
A5 POINTER 
XGML 
SYS [39] 


* SYRAM 

How to do equates PDOS option, INCLUDE file. 

CAUTION: Some locations changing with PDOS 3.0 



OFFSET 

0 

BIOS . 

DS.L 

i 

MAIL. 

DS .L 

i 

RDKN. 

DS .W 

i 

RDKS . 

DS . W 

i 

RDKA . 

DS.L 

i 

BFLG . 

DS .B 

i 

DFLG . 

DS .B 

i 

FCNT. 

DS . W 

i 

TICS. 

DS.L 

i 

MON. 

DS .B 

i 

DAY. 

DS.B 

i 

YRS . 

DS .B 

6 

HRS . 

DS.B 

1 

MIN. 

DS.B 

1 

SEC. 

DS.B 

6 

PATB. 

DS.B 

16 

BRKF . 

DS.B 

16 

F8BT . 

DS.B 

16 

UTYP . 

DS.B 

16 

URAT . 

DS.B 

16 

EVTB . 

DS.B 

10 

ITO: 

Bi : § 


EVTS . 

DS.B 

2 

EVTZ 

EQU 

*— EVTB . 


DS.B 

128/8 

EVTM . 


4 

Introduction to 

PDOS 


7 ADDRESS OF BIOS ROM 
; *MAIL ARRAY ADDRESS 
; *RAM DISK # 

; *RAM DISK SIZE 
7 *RAM DISK DISK ADDRESS 
; BASIC PRESENT FLAG 
; DIRECTORY FLAG 
; FINE COUNTER 
; 3 2 BIT COUNTER 
? MONTH 
; DAY 
; YEAR 
; HOURS 
; MINUTES 
; SECONDS 

; INPUT PORT ALLOCATION TABLE 

; INPUT BREAK FLAGS 
7 PORT FLAG BITS 
7 PORT UART TYPE 
7 PORT RATE TABLE 
70-79 EVENT TABLE 

,•112-127 SYSTEM EVENTS 

7 TASK 128 EVENTS 
7 EVENTS 112-115 TIMERS 
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* 

* 

BCLK . 
TLTP . 
UTCB . 
SUIM . 

USIM. 
SPTN . 

UTIM. 
TPRY . 
TSKN. 
L2LK . 
L3LK . 
TLCK . 

E122 . 
E123 . 
E124 . 
E125 . 
CKSM. 
PNOD. 

BCLT. 

* 

RWCL . 
OPIP. 

UART. 


SYRAM (continued) 


DS.L 
DS.L 
DS.L 
DS .W 

B1:M 

DS.B 
DS .B 
DS.B 
DS.B 
DS.B 
DS.B 
DS.B 
DS.B 
DS.B 
DS.B 
DS.B 
DS.L 
DS.W 
DS.B 
DS.L 

DS.W 

EQU 

DS.L 

EQU 

DS.L 


1 
1 
1 
1 

1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 

54-4*NBC 

NBC 

16 

*-4 

16-1 

*-4 

16-1 


CLOCK ADJUST CONSTANT 

TASK LIST POINTER 

USER TASK CONTROL BLOCK POINTER 

SUPERVISOR INTERRUPT MASK 

H?I^N I ?XiK R NSMB&| SI [ : ** 'MUST BE EVEN **) 
USER TASK TIME 

TASK PRIORITY (** MUST BE EVEN **) 

CURRENT TASK NUMBER 

LEVEL 2 LOCK (FILE PRIMITIVES, EVENT 120) 
LEVEL 3 LOCK (DISK PRIMITIVES, EVENT 121) 
TASK LOCK FLAG 

BATCH TASK # 

SPOOLER TASK # 


,* SYSTEM CHECKSUM 
; PNET NODE # 

7 SPARES 

7 BASIC CALL TABLE 
7 PORT ROW/COLUMN 
7 OUTPUT PORT POINTERS 
7 UART BASE ADDRESSES 


************************************************* 

* THE FOLLOWING CHANGE WITH DIFFERENT CONFIGURATIONS 


MAPS. 

DS.B 

MAPZ 

MAPE. 

EQU 

* 

PORT . 

DS.B 

(NPS-1 ) *NCP 

TQUE . 

DS.W 

NTB+1 

TLST . 

DS.B 

NTB*TBZ 

TMTF . 

DS.L 

NTM 

TMBF . 

DS.B 

TMZ*NTM 

DEVT . 

DS.B 

2+NEV*8 

BSCT. 

DS.W 

32 

XCHI . 

DS.W 

NCB 

XCHB . 

DS.B 

NCB*BPS 

XFSL . 

DS.B 

NFS*FSS 


DS.B 

72*3 

SYSK. 

EQU 

* l $07FF+1 

SYRAMZ 

EQU 

PAGE 

SYSK. 


7 SYSTEM MEMORY BIT MAP 

7 CHARACTER INPUT BUFFERS 
? TASK QUEUE 
7 TASK LIST 
7 TO/FROM/INDEX. W 
7 TASK MESSAGE BUFFERS 
7 DELAYED EVENTS 
7 BASIC SCREEN COMMAND TABLE 
7 CHANNEL BUFFERS QUEUE 
7 CHANNEL BUFFERS 
7 FILE SLOTS 

7 SYSTEM STACK 
7 END OF SYSTEM RAM 
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2 . 


Processor ID Letters 


MSYRAM — 

I 

i -> BIOS . > 0 . . 1 

2 . . 3 

I D LETTERS 

MOVEA.L (A5),A0 ; POINT TO BIOS 

MOVE . W 4 ( A0 ) , D0 ; GET SYSTEM ID CHARS 

CURRENT LETTER DEFS 
F0 = FORCE CPU 1 
F2 = FORCE CPU 2 
U0 = MOSTEK MATRIX 68 
T0 = VME-10 

if = 20/440 / 440 

G0 = GMS 

DO EXERCISE 10-1 — FIND YOUR PROCESSOR ID 


3. Using TICS, for Timing 


M0 

= MIZAR 9100 

D0 

= DATA 

SUD 

D4 

= DY-4 


J0 

= T.I. 

5100 

V0 

= VME 

110 


* Finding out the tics per second 

* SYS [38] 

* MSYRAM parameter 

DO EXERCISE 10-2 — TIMING A LOOP 
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SESSION 11 


HARDWARE INTERFACE 


GOAL: 

You should become acquainted with where to start on interfacing a 
new character or block device to PDOS . 


PDOS SYSTEM INITIALIZATION 


C Start 
CONFIG 


CPU and Mapper 
Size Memory 
Parameter Setup 


R/W Module 


7.7 

PDOS Kernel 

Initialize SYRAM 

•i-joerata Exception 
Vector* 

Initialize Diafct 

Incize UART* 
Genenrt* Task Uat 
Begin Mutti-tasking 


\7 

Application Programs, 

Task #1 
Task #2 




UART Module 


tnttJailze and beud 
UARTS 


Task Startup Table 



UART Configuration* 
Task Definition* 

Priority 
H Vice 
S RAM Size 

Z *«p 

Program Entry 
Port 

Priority 
? Slice 
* RAM Size 

; sup 

*> Program Entry 
Port 


SYRAM 
Task #1 


Task #2 


FREE 


ROM 


RAM 
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NOTES : 


1 . Task devices . 


* Support device directly in task space. 

* No operating system inter gration needed 

2. Driver Files — Chapter 7 

* Disk resident 

* Limited to 252 bytes of code (1 PDOS sector) 

* See PDOS Reference Manual Chapter 7 

3. Basic I/O system — BIOS 

4. Character devices (UARTS) — Chapter 8 

* BIOSU File PDOS Reference Manual Section 8.2 ■ 

* Device entries 

* Get character 

* Put character 

* Baud port 

* Reset port 

* Read status 

* 4 Unquie types supported 

5. Block devices (DISK, R/W Sector) — Chapter 8 

* BIOSW File PDOS Reference Manual Section 8.3 

* Interface 

* Write Sector 

* Read Sector 

* Init Disks 

* Disk Off 

* Error message lists 
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SESSION 12 


PDOS RUN MODULES 


GOAL: 

You should be able to build down an application into EPROM 
for use in a target system. 


NOTES : 

1 . Run module licensing 


* Royalty per CPU 

* Pay only on parts of PDOS used 

* Paid up and source availble 

2 . Development Cycle Review 


SOFTWARE 



HARDWARE 


Development/target 


Component Target 

Hardware 


Hardware 


Introduction to PDOS 


58 




3 . 


Build Down Approach 


* PDOS is complete system for a single CPU 

* In order to extract only the part you need a license to 
build run modules. 


“BUILD-DOWN” SOFTWARE DEVELOPMENT 
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4 . 


Demonstration of building a run module system 


* Go over 

* Build a 


Run Module prelimary document 

Run module system with exercises work on 


in class 


DEVELOPMENT 


32K Byt»* 


CONFIGURED 

TARGET 

Application Modules 





> ROM 




> RAM 


J 
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* Build a Run module system with exercises work on in class. 
Instructor demonstration. 


v J 


r" 
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SESSION 13 


PDOS SYSTEM GENERATION AND INSTALLATION 


GOALS : 

1. You should learn how to configure PDOS for various numbers 
of TASK Files and other parameters. 

2. You will have the opportunity to install PDOS on a target 
system . 

NOTES : 

1. Chapter 2 instructions. 


* Jumpers 

* EPROMs 


2. The MSYRAM file. 


* User configurable parameters 


IFUDF 

NTB 

NTB 

EQU 

32 

; NUMBER 

OF 

TASKS (128 

MAXIMUM) 

IFUDF 

NTM 

NTM 

EQU 

32 

7 NUMBER 

OF 

TASK MESSAGES 

IFUDF 

TMZ 

TMZ 

EQU 

64 

; TASK MESSAGE SIZE 


IFUDF 

NCB 

NCB 

EQU 

8 

? NUMBER 

OF 

ACTIVE CHANNEL BUFFERS 

IFUDF 

NFS 

NFS 

EQU 

32 

7 NUMBER 

OF 

FILE SLOTS 


IFUDF 

NEV 

NEV 

EQU 

10 

7 NUMBER 

OF 

DELAYED EVENTS 

IFUDF 

NFS 

NPS 

EQU 

16 

7 NUMBER 

OF 

I/O PORTS 


IFUDF 

NBC 

NBC 

EQU 

4 

7 NUMBER 

OF 

BASIC CALL 

ENTRIES 

IFUDF 

P2P 

P2P 

EQU 

6 

7 INPUT BUFFER SIZE (2" 

P2P) 

IFUDF 

MMZ 

: MMZ 

EQU 

1 < <20 

*8 7 MAXIMUM 

MEMORY SIZE 

( 16M MAX. ) 


* How to change value with MASM switch 
- MASM FBI OS : SR/NCB=10 , MBIOS 


Introduction to PDOS 


63 



3 


Re-assembling and Re-linking the New System. 


* xDOSGEN 

IF &1=Q.GT LINK 

MASM MSYRAM : SR , # MSYRAM 

MASM xBIOS : SR, #MBIOS 

MASM xBIOSU : SR, #MBIOSU 

MASM xBIOSWsSR, SMBIOSW 

IF &0.RC 

GT LINK 

LINK 

QLINK 

Z 

DEFINE SYRAM, 9000 

SECTION 0,800 

IN MBIOS 

IN MBIOSU 

IN MBIOSW 

IN MPDOS 

IN MSYRAM 

MAP UFS 

MAP UFS , #xMAP 

SY 

OUTPUT #xDOS 

END 

QUIT 

RC 


4. Booting the System. 


* To try new version: 

LO xDOS 

xBOOT 

* To build new boot disks use: 
MMKBT 

DO EXERCISE 13-1 — INSTALLING PDOS 
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SESSION 14 


PDOS CUSTOMER SERVICES 


GOALS: 

1. You should understand how Eyr ing can help you in the future. 

2. You will be asked to complete an evaluation survey. 

3. Possible future classes will be discussed. 

NOTES : 

* PDOS Hotline support. 

* Manuals available. 

* Future classes. 

* Application notes . 

* Consulting. 

DO EXERCISE 14-1 — PDOS TRAINING SEMINAR EVALUATION 
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SESSION 15 


TOUR OF EYRING 


GOAL: 

Let you see the Eyring facilities. 


NOTES : 

1. Software & Systems Marketing Division 


Besides PDOS, Eyring markets a number of internally developed 
software systems: 

* The Dynix library automation system. 

* The Triton facility management system. 

* STAT/1000 — a statistical analysis package. 

* CAD — computer aided police and emergency dispatch. 

* A loan collection system. 

2. Custom Software & Systems Development Division 

This large division comprises nearly 100 programmers and performs 
custom software and systems development on contract for large 
customers and the U.S. government. 

3. Communications Division 

Eyring has developed • two proprietary and classified antennas 
which are being marketed to the U.S. military. They represent 
many years of development and are breakthroughs in portability 
and nuclear hardness. 

4. Energy Research Division 

Eyring has formed a subsidiary. Hydrocarbons, Inc. .to handle the 
continuing development and marketing of a coal liquefaction 
process developed at Eyring. This process allows many valuable 
liquids to be removed from the coal. The remaining char can then 
be burned and produce the same amount of energy as the original 
coal would have produced. 

5. Technical Services Division 

Because of its varied interests and expertise, Eyring has the 
resources to contract its services to organizations and the 
U.S. government. Many of these services are currently being 
rendered at Hill Air Force Base in Ogden, Utah. 


Other Eyring offices: 
Introduction to PDOS 
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EXERCISE 2-1 


BOOTING PDOS 


Work in groups according to the system to which your terminal is 
connected. Depending on your system, boot PDOS. (Note: <> are 
used to denote specific keys, for example: [CR] is a return key). 


Force CPU-1/2 
F5 Turn power on . 

2) System will be booted and other terminals started. 
VME/10 

1 ) Turn key fully to the right'. 

2) Turn on power. 

3) After TEN BUG message type a ' [CR] 1 . 

4) Insert boot diskette. 

5) Type ‘BO 2[CR]’ in response to ’>' prompt. 

6) System will be booted and other terminals started. 

STRIDE 

1) Turn on power. 

2) On master terminal type 1 IH PDOS[CR]’ in response to 
' > 1 pr ompt . 

3) System will be booted and other terminals started. 

Sage II or Sage IV 
H Put boot disk into drive 0. 

2 ) Turn on power . . 

3) System will be booted and other terminals started. 

GMS system 

1 ) Turn power on . 

2) System will be booted and other terminals started. 
Mostek 

IT Turn power on . 

2) Place boot disk in. 

3 ) Type a ' [CR] 1 . 

4) In response to prompt, type 'LO 4, 10000 , 11000[CR] ' . 

5) Next, type ’ ES 10000[CR] ' 

6) System will be booted and other terminals started. 
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EXERCISE 2-2 — HELP / ID 

Enter the ID command and fill in the blanks. 

PDOS/68000 R / / 

ERI I , copyright 1983. 

DATE= 7 7 

TIME= : : 

Type HE[CR]. 

You should see the possible help subjects. 
Type HE MONITOR 

You should see a list of monitor commands. 
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EXERCISE 2-3 


VALID FILENAMES 


Check which of the following are valid filenames 


[ 

3 

THISISAFILNAME 

C 

3 

FILE. NAM 

c 

3 

1 FILENAME 

c 

3 

THE : NAME 

c 

3 

FILE NAM 

[ 

3 

A1234567 :EXT 
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EXERCISE 2-4 


FILE COMMANDS 


Use the MF command to create 2 files. Call the first file NAME : 1 
and the second file NAME: 2. Remember to use the '#' to auto- 
create your files. 

Into file 1 enter the text: 

THIS IS A TEST OF MF[CR] 

ON FILE 1 . [CR] 

[ESC] 

Into file 2 enter the text: 

THIS IS A TEST OF MF[CR] 

ON FILE 2 . [CR] 

[ESC] 

Set the attributes of both files to ' TX' type. 

Type out the files to your screen with the SF command. 

Define a’ third file called NAME: 3 with 10 blocks. 

Rename NAME: 3 to NAME: 4 
Copy NAME : 1 to NAME: 4 
Append NAME: 2 to NAME: 4 

Type out file NAME: 4. What do you see? 

Define file 1NAME. What happened? 

List all files that start with NAME with any extension. What do 
you see? 


Do a DM command to delete all files of the format NAME:* 

List all files that start with NAME with any extension. What do 
you see? 
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EXERCISE 2-5 


DISK COMMANDS 


Find out how much disk space is on your disk. 

Free= 1) / 2) 

Used= 3) / 4) 

What do the four numbers mean? 

1) 

2) 

3) 

4) 

List all files on level 1 
List all files on level 2 
List all files on disk 
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EXERCISE 2-6 


MEMORY COMMANDS 


Type AM, how much is free? 
Type FM 2 

Type AM, how much is free? 
Type GM 

Type AM, how much is free? 
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EXERCISE 2-7 


COMMAND LINE EDITING 


Recall the last lines type by pressing "'A several times. 
What do you notice? 

Do a LS command for Level 1 . 

Recall the line and edit it to list level 2, then execute 
the command. 

Define a file called NAME. Now recall the command and 
using line edit rename the file to NAME:1; then delete the file. 
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EXERCISE 3-1 


SETTING TERMINAL TYPE 


Following the instructions on page 13-31 of the reference manual, 
set your terminal type using the MTERM program. 


EXERCISE 3-2 — MJEDY HELP KEY 
Enter MJEDY from the PDOS monitor . 

Bring up the help screen on your terminal by pressing [ESC] 
followed by the ~F key. The menu will be displayed until any 
other key is pressed. 
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EXERCISE 3-3 


BASIC EDITING 


Enter the following assembly program: 


START 

XPMNC 
XGLU 
XCD 
• MULU 

MES01 
#100, D1 

; ASK FOR NUMBER 


XPMCMES02 

XCBD 

XPLC 

XPLC 

BRA . S START 

;X 100 

MES01 

DC • B 

$0A, $0D, 'ENTER 

YOUR NUMBER = .',0 

MES02 

DC . B 
EVEN 
END 

• ' x 100 = ' ,0 

START 



Now using the arrow and rubout keys move the cursor 
following lines and correct the errors. The bold lines 
error lines. 


START XPMC 

XGLU 
XCDB 

MES01 

; ASK FOR NUMBER 

MULU 

#100, D1 


XPMC 

XCBD 

MES02 

;X 100 

XPLC 



(DELETE LINE) 



BRA.S 

* 

START 


MES01 DC . B 

$0A, $0D, 'ENTER 

YOUR NUMBER = ' , 0 

MES02 DC . B 

EVEN 

• X 100 = ',0 


END 

START 


Your program should now appear 

as follows: 

START XPMC 

XGLU 
XCDB 

MES01 

; ASK FOR NUMBER 

MULU 

#100, D1 


XPMC 

XCBD 

XPLC 

MES02 

;X 100 

BRA.S 

START 


MES01 DC . B 

$0A, $0D , 'ENTER 

YOUR NUMBER = ' , 0 

MES02 DC . B 

EVEN 

' X 100 = ' ,0 


END 

START 



to the 
denote 
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EXERCISE 3-4 


FILE INTERACTION 


Save your created text in a filename using NAME and a :SR 
extension. 

Quit the MJEDY editor . 

Re-enter the editor with a GO command. 

Save your created text again only instead of typing the filename, 
press the ~ W key twice to recall the last filename used. 

Clear the buffer . 

Quit the MJEDY editor . 

Now re-enter the editor by retrieving the file from the monitor . 
You should now have your file in the editor buffer . 
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EXERCISE 3-5 


GLOBAL SEARCH AND REPLACE 


This exercise will change all ' MES ' strings to 'TEX’ strings. 

Type to begin the macro. You should notice the macro word 

appear on the status line in place of the time prompt. 

Type ^T to place the cursor at the top of the text. 

Type A SMES[ESC]. This will locate the first string. 

Press the [DEL] key 3 times to rub out the string 'MES 1 . Next 
type in the string 'TEX'. 

Type a to end the macro. You should note that the macro word 
prompt is removed from the screen and the time prompt reappears. 

To replace all remaining occur ances of 'MES', type [ESC]~Z. You 
will be prompted with Execute macro ' . You enter the number -1 
followed by an [ESC]. The macro will execute until the search 
fails. 

If you had wanted to execute the macro once, then you should have 
typed a ~E instead of the [ESC]~Z command. 
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EXERCISE 3-6 


INPUT / OUTPUT OF MACROS 


First, save your macro that you defined in Exercise 3-5 into a 
filename. Use NAME for the filename with a ’1:MAC‘ extension. 

I 

Now redo Exercise 3-5 redefining the macro to replace all 'TEX' 
back to 'MES'. Use the ~E execution on the macro. 

Now save this macro out to disk using NAME again for the filename 
but with a '2:MAC‘ extension. 

You should now be able to recall the first macro and convert 
'MES' to 'TEX' and then recall the second macro and convert ’TEX' 
back to ' MES ' . 

When you are done, leave the file with the 'MES' text done. 
Write the file out. 
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EXERCISE 3-7 


BLOCK CUT AND PASTE 


Go to the top of the file. 

Insert the pointer . 

Go to the second line. 

Type a to save the text. 

Use the command to cut the text. 
Restore the text by the "A command. 
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EXERCISE 3-8 


RUNNING MASM 


Run MASM to assemble your program file that you created in part A 
with MJEDY . For the object output you may use the same name as 
the source with no extension. For the list file use a ':LST' 
extension. Remember to prefix these files with a '#' to auto 
create them. Your screen should be similar to the following when 
you are done. 

68K PDOS Assembler R2.6e 10/17/84 

ERII , COPYRIGHT 1983 

SRC=NAME:SR 

OBJ=ttNAME 

LST=#NAME : LST 

ERR= 

XRF= 

END OF PASS 1 [1 ERROR] 

l/4x 0/00000008 :4AFC4AFC MUL #100,D1 

END OF PASS 2 [1 ERROR] 

You will notice that 1 error occurred. This is an illegal opcode 
instruction. Correct the error with MJEDY by changing the 'MUL* 
instruction with ' MULU ' . Then repeat the MASM step. 

Since there are no 'XREF's you can execute this program by 
typing the command 'NAME' in response to the PDOS prompt. 
Execute the program and try a few sample numbers. 

To return to the PDOS monitor, type an [ESC]. 
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EXERCISE 3-9 


EXTERNAL LINKAGE 


Remove the text strings from your source file and declare the 
labels for the text strings to be XREF. 


* 

MES01 DC . B $0A, $0D, 'ENTER YOUR NUMBER = ',0 
MES02 DC . B ' x 100 = ' , 0 
EVEN 


Create a new file with the text strings and declare the string 
labels to be XDEF. Name the new file NAME with a '1:SR‘ exten- 
sion . 

HINT: Use a pointer in MJEDY and ~0 to output the text strings 

from the original file to the new file and ~\ extension to delete 
the text from the original. 

Reassemble both parts using a ':OBJ' for the object files. 

EXTRA: You may want to place a TTL and IDNT in the program and 

try some of the other directives. 

Compare the results by looking at the listing files. 

Also type out the object to the screen and translate the tagged 
object format. 


Introduction to PDOS 


31 



EXERCISE 3-10 


USING QLINK 


Execute QLINK from the PDOS monitor . 

Input the 2 object modules that you created for exercise 3-9. 
Display the map on the screen. 

Output the link as a SYfile under as NAME (no extension). 


Now execute the file NAME. 

The screen should be like the following: 

1, 0> QLINK 

PDOS 68k Quick Linker 11/01/84 

ERII, Copyright 1983 

♦IN NAME : OBJ 

ENTRY ADDRESS =00000000 

*IN NAME 1: OBJ 

♦SYFILE 

*MAP 

INPUT FILE MAP: 

INDEX FILE NAME TYP IDNT R V DATE TIME SECTION ADDRESSES 

1 NAME : OBJ • 0/00000000 00000015 

2 NAME1 : OBJ 0/00000016 00000037 


SECTION GROUPS: NONE 


HIGHEST 
00000038 

UNRESOLVED EXTERNAL DEFINITIONS: NONE 

UNRESOLVED EXTERNAL REFERENCES: NONE 

♦OUTPUT £NAME 

♦END 

SY FILE: BASE=$00000000 , LENGTH=56 
*Q 


OVERFLOW REFERENCE VALUES: NONE 

/ 

SECTION BASE LOWEST 

0 00000000 00000000 
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EXERCISE 4-1 


PROCEDURE COMMAND FILE 


PART A: 

Use MJEDY to create a procedure file that will assemble a file. 
Name the file NAME with a ’ :DOA’ extension. 

Your command file will pass to the assember 1 argument which is 
to be the main portion of the file name. You will supply the 
1 : SR 1 , 1 : OBJ 1 , and ':LST' extensions as part of the procedure 

command text. Remember to use the '#' on the OBJ and LST files 
to auto create them. 

Hint: For the source part of MASM: &1:SR. 

End the file with the RC command to close only the current 
command file. 

Exit the editor . Set the AC attribute and reassemble your two 
program files. 


PART B: 

Use MJEDY to create a procedure file that will link the two 
object files output from part A. Name the filename NAME with a 
1 : DOL 1 extension. 

Output the files to a file with no extension in SYfile format. 
The input filenames will be obtained from input arguments. 
The output filename will be the same as argument 1. 

Display the map after the files have been input. 

Relink your program the object files. 
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EXERCISE 4-1 (Continued) 


PART C: 

Create a procedure file that has three arguments, the first is 
for the word 'LINK* or 'ASSM', the second and third sure for the 
filenames (i.e NAME and NAME1 ) . Give the procedure file an 
':ALL' extension. 

This procedure file will call the procedure file you created for 
part A if argument &1 = ASSM. It will call the procedure file 
you created for part B if argument &1=LINK. If argument &1 is 
blank then both parts are to be done. 

HINT: The following psedocode will show you the logic. 

You will need to use the 'IF' and 'GT' function of 
the monitor . 

IF &1=LINK THEN GOTO LINK 
IF &1=ASSM THEN GOTO ASSM 
NAME : DOA &2,&2,S=3 
NAME : DOA & 3,&2,&3 

CAUTION: THE ARGUMENTS S=0..&9 ARE GLOBAL ' TO ALL PROCEDURE 
NESTINGS. THE ABOVE WILL CHANGE &1 TO THE VALUE 
OF &2 AND THEN TO &3 . YOU MUST PASS IN ARGUMENTS 
THAT NEED TO BE PRESERVED. HENCE ' NAME : DOA 
&2,&2,&3‘ IS USED TO SAVE &2 AND &3 . 

GOTO LINK 
LINK 

NAME : DOL &2,&3 
STOP 
ASSM 

NAME: DOA &2, , &3 
IF &3. NAME: DOA &3 
STOP. 

Test the 3 options of the procedure file. 


EXERCISE 4-2 — SY?STRT FILE 


Display the SY$STRT file on your screen. 
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EXERCISE 5-1 


DEBUG 


Load the program NAME into memory with the LO command and then 
enter tne debugger . 

Type the He.... . oy and view the list of commands. i 

Disassemble the first 10 bytes of code. 

Search first 10 bytes of ?.sk memory for a $A080 . Execute the 
program with a break point at the MULU instruction. When the 
break point is reached, dump the gister s . 

Display memory from +0,+40. 

Exit to the PDOS monitor . 


EXERCISE 5-2 — DEBUG APPLICATION NOTE 

Read the application note and work on some of the exam' 
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EXERCISE 6-1 


LT AND BP COMMANDS 


Type the LT command and note the the output ports for your task. 

Type only the BP command note the different information for your 
tasks port. 

My U1P is 

My U2P is 

My U1P is a type port set at Base at a 

baud rate of 


EXERCISE 6-2 — PRINT A FILE 


Work in teams and find your partners U1P port number. Select 
each other's port as your unit 2 device. Now take turns and copy 
the file NAME:SR to the TTA driver. It should appear on your 
partners terminal. 

Next, select output to both your unit 1 and unit 2 devices, then 
do a LT command. Note the results. Set output to unit 2 and do 
a LT command. (Note: you will have no chars appear on your 

terminal). Next, reset back to unit 1.' 

Spool your unit 2 to a file called NAME:LOG. Select output to 
both unit 1 and unit 2. Do a LT command and a BP command. 
Reselect unit 1, then reset your spool file. 

Type out the log file to your terminal. 

Although output was to a partner's terminal, a printer could have 
been connected to the port for hard copy output. 
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EXERCISE 7-1 


PROCEDURE FILES 


Run the procedure file created for Exercise 4-1 Part C to 
assemble and relink your program as a background task. After you 
have created your background task, do a LT command to note the 
father-son relationship. What is your son tasks number? 


EXERCISE 7-2 — PROCEDURE FILES AS TASKS WITH RC 


Create a procedure file named NAME:1 that will do a LT command 
only. Have the task output to your output port. (This can be 
done by assigning the task your output port number with the CT 
command ) . 

Create the task. You should note that the task will do a LT to 
your terminal. Do a LT command and you will note that the 
background task is suspended on event 96. (NOTE: Your screen 
display may be garbaged due to the intermix of characters from 
the son task and your task. ) 

Kill the backgound task. Change the procedure file to have a RC 
or RS at the end. Re-create the task and then do a LT command. 
You should note that your background task has killed itself. 
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EXERCISE 7-3 — THE TASK CONTROL BLOCK 

Use the LT command to find your task control block address. 

My task block address is < 

Use the debugger to display your task control block. 



C 
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EXERCISE 7-4 


MULTI-TASK EVENT SYNCHRONIZATION 


Using the MJEDY editor and MASM create the following program use 
NAME3 : SR for the filename. For the program use an event number 
that is your task number +64 (the task number can be obtained 
from the LT command). 


TEVENT 

* 

EQU 

64+??? 

; FOR ??? USE TASK # 

FROM LT 

COMMAND 

START 

MOVEQ.L 

#-TEVENT,Dl 

; CLEAR THE EVENT TO 

0 


* 

XSEF 


; RESET EVENT PAGE 5- 

•91. 


LOOP 

MOVEQ . L 

#TEVENT , D1 

; WAIT FOR EVENT 




XSUI 


; SUSPEND ON EVENT 




XPMC 

MESS 1 

; WRITE TO UNIT 

1 THE 

MESSAGE 

* 

BRA 

LOOP 





MESS1 DC . B $0A,$0D, 'HELLO THERE THIS IS A VERY LONG MESSAGE' ,0 

* 


END START 


Assemble then execute the program as a task with the CT command 
and specify that the port be the same as your unit 1 port. 
(This information is all obtained from the list task command). 
Specify only 2k of memory. 

Do the LT command and note the status of your son task. Is the 
task suspended on an event? 

Use the EV command to set the event number, what happened? 
Kill the task and verify the result with the list task command. 
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EXERCISE 7-5 


TASK PRIORITIES 


You should have noted that the string printed intermixed with the 
prompt message. This is due to the round robin scheduling of 
*PDOS . The problem could be solved by allowing the suspended task 
to run at a higher priority than your task. Your task priori tv 
is defaulted to 64. This can be verified with the LT command. 

Recreate the task you ran for Exercise 7-4 at a higher priority 
than your task and set the event flag. 

Change the priority of the son task with the TP command so that 
the task will run at a lower prior ty than your task and set the 
event flag. 

What did you note about the command prompt and string: 

Higher Priority 

Lower Priority 


Kill the son task. 
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EXERCISE 7-6 


MULTI-TASK MESSAGES 


Use MJEDY to create a procedure file that will send to your task 
a message. Remember to place a RC as the last command in the 
file and to set the file attribute to AC. .Run the procedure file 
as a son task. '■ 

Type the carriage return. 

What happened? 






'U 
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EXERCISE 7-7 


TIMER TASK 


Redo the program created for exercise 7-4 and add a timeout 
loop. Save the changes into file NAME5:SR 


TEVENT 

* 

START 


* 

LOOP 


EQU 


64+??? 


MOVE . L # -TEVENT, D1 
XSEF 

MOVE . L #100*5, D0 
MOVEQ.L #-128, D1 
XDEV 

LSL.W #8 , D1 

ADD I . B #TEVENT,D1 

XSUI 


FOR ??? USE TASK # FROM LT COMMAND 

CLEAR THE EVENT TO 0 
RESET EVENT PAGE 5-91 

WAIT ABOUT 5 SECONDS 
USE THE LOCAL EVENT 
SET UP A DELAY ENTRY 
SHIFT EVENT OVER 1 BYTE 
WAIT FOR EVENT 
SUPPEND ON EVENT 



CMP I . 

B #TEVENT,D0 



BNE 

i.S LABI 


* 

XPMC 

MESS 1 

; WRITE TO UNIT L THE MESSAGE 

* 

BRA 

LOOP 


LABI 

XPMC 

MESS2 


★ 

BRA 

LOOP 


MESS 1 

DC . B 

$0A, $0D, 'HELLO THERE 

THIS IS A VERY LONG MESSAGE ' , 0 

MESS2 

DC . B 

$0A, ?0D, 'TIME OUT ’ , 0 


* 

EVEN 




END START 



Run as a son task with 2kb of memory and output port same as 
your tasks. What appears on your screen? 


Now set the event flag. What appears on your screen? 


Kill the task. 
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EXERCISE 8-1 — MDDMAP / MDDUMP 


Use MDDMAP to verify that your disk is OK. Note the header 
information about the disk. Note the starting sector number of 
one of your text files. * 

Now run MDDUMP and display sector 0 on the same Disk. Verify 
some of the header information from MDDMAP with MDDUMP sector 0. 
Now dump your text file to the screen by entering the sector 
number . Enter Alter mode and change a few bytes in your text 
file. CAUTION: Do NOT change any file links — the first 4 bytes 
of the sector. Write the sector back to the disk and Edit the 
text file with MJEDY. Do you see the changes? 


EXERCISE 8-2 — MLEVEL 


Execute MLEVEL and list the files on your disk. 


EXERCISE 8-3 — MDLOOK / MDSAVE 


Execute MDLOOK to display the possible files on your disk. 
Select one that looks like a text file- and save the text into -a 
file called NAME : TMP . Display NAME rTMP on your console. 


EXERCISE 8-4 — RAM DISK AND MTRANS 


Type the RD command to see if you have a RAM disk on your 
system. If you do, then use MTRANS to transfer all files of 
NAME : @ to the RAM disk. 

Set your disk search list to be units 8 and your current unit. 
Delete the files of NAME:@ from the RAM disk. _ Reset the disk 
list to your previous unit. 
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EXERCISE 8-5 


DIRECT DISK ACCESS 


Write the following program in file NAME6:SR to read the first 

.arting sector number 


sector 

from one 

of your source files (The 

can be 

obtained 

from the LS command). 

DISKN 

EQU 

??? ; THE DISK NUMBER 

SECTN 

★ 

EQU 

$??? ; THE SECTOR NUMBER (. 

START 

MOVEQ . L 

#DISKN,D0 


MOVE . W 

#SECTN,D1 


LEA - L 
XRSE 

BUFF (PC) , A2 

* 

XEXT 


BUFF 

DS.B 

256 


END 

START 


Assemble the program with a list file. From the list file find 
out the relative address of BUFF (This is on page 2 under DEFINED 
SYMBOLS ) . 

Now execute the file. 

Next use debug (PB command ) to look at the buffer. This is done 
a by doing a memory dump like +e,+10e« The 'e' should be the 
value of the buffer relative address from the list file. 
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EXERCISE 10-1 


FIND YOUR PROCESSOR ID 


Write a small program to output your processor ID. * 

Use the following PDOS primitives: XPCL, XPCC, XEXT . 

First output a carriage return line feed — XPCL 
Get the processor ID into register D0 

Then output the processor ID — XPCC (NOTE: the characters will 

be r ever sed ) . 

Then output a carriage return line feed — XPCL 
Exit the program — XEXT 

ALTERNATE : 

Use BASIC to output the ID using the SYS[3 and MEMW functions. 
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EXERCISE 10-2 


TIMING A LOOP 


Write the following program to time a loop: 


* SAMPLE TIMING COOP. 

* 


COUNT 

EQU 

100000 

,*100000 LOOP ITERATIONS 

TICS . 
* 

EQU 

$0014 

; 3 2 BIT COUNTER 

START 

XPMC 

MES01 

; ' START ' 


MOVE . L 

#COUNT, D6 

; GET COUNTER 

* 

MOVE . L 

TICS. ( A5 ) , D7 

; GET TICS 

*********************************************************** 

★ 

START OF 

TEST 



* 


LOOP 

YOUR CODE HERE 



SUBQ.L 

#1 , D6 

; DONE? 

-ir 

BGT.S 

LOOP 

/ N 

*********************************************************** 

* 

END OF 

TEST 



* 


TEND 

SUB.L 

TICS. ( A5 ) , D7 

• ; GET TIME 


NEG .L 

D7 



MOVE . L 

D7,D1 



XCBM 

MES02 


* 

MOVEA . L 

A1,A0 


TEND2 

TST . B 

(A0) + 

MOVE TO END 


BNE . 

S TEND 2 

7 N 


MOVE . B 

— ( A0 ) , 1 (A0) 

?Y 


MOVE . B 

— ( A0 ) , 1 ( A0 ) 



MOVE . B 

— ( A0 ) , 1 ( A0 ) 



MOVE . B 

# ' • * , (A0) 



XPLC 


7 OUTPUT TIME 

* 

XEXT 



MES01 

DC . B 

$0A, $0D , 'BENCHMARK 

TIMER' 


DC . B 

$0A, $0D , 'START ' , $0A 

, $0D , 0 

MES02 

DC . B 

'END, TIME =',0 



END 

START 



i 


Execute the program. 
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EXERCISE 13-1 


INSTALLING PDOS 


The installation will proceed on the systems that are available 
for the seminar • 
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EXERCISE 14-1 


PDOS TRAINING SEMINAR EVALUATION 


NAME DATE 

Please take the time to answer the questions on this evaluation. 
The answers will aid us in improving and developing future 
courses for PDOS. 


YOUR BACKGROUND 
EXTENSIVE 


NONE 


1 2 3 4 5 


1 . 

My 

previous experience with PDOS was 

c 

] 

c 

] 

[ 

] 

[ 

] 

[ 

] 

2. 

My 

realtime experience is 

c 

] 

c 

] 

[ 

] 

[ 

] 

[ 

] 

• 

My 

68000 processor experience is 

c 

: 

c 

] ■ 

[ 

] 

[ 

] 

[ 

] 


My 

9900 processor experience is 

c 

] 

[ 

] 

[ 

] 

c 

] 

c 

] 

5. 

My 

hardware experience is 

r 

] 

[ 

] 

[ 

] 

c 

] 

[ 

] 


THE SEMINAR PRESENTATION 





STRONGLY 

STRONGLY 





DISAGREE 


AGREE 





i 

2 

3 

4 

5 

1 . 

The instructor 

was enthusiastic when 

i — i 
i i 

1 — 1 
t 1 

1 — 1 
1 t 

1 — l 
1 1 

1 — 1 
1 » 


presenting course material. 






2. 

The instructor 

' s use of examples 

c ] 

C ] 

C ] 

C 3 

C ] 


helped to get points across in the 
lecture . 

3. The instructor appeared receptive to [][][][]C] 

new ideas and others' viewpoints. 

t The instructor generally stimulated [] [] [] [] [] 

class discussion. 

5. The instructor attempted to cover too [] [] [ ] [] [] 

much material. 

6. The instructor generally presented the [] [ ] [ ] [ ] [] 

material too rapidly. 


7. The instructor appeared to relate the [] [] [] [] [] 

course concepts in a systematic manner. 

8. The instructor's lecture presentations [] C] C] [ ] C] 

made for easy note-taking. 

9. You feel that this course challenged [] [] [ ] [ ] [] 

you intellectually. 
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10. You have become more competent in this 
area due to this course. 

11. The direction of the course was ade- 
quately outlined. 

12. The course has definite objectives 
which were attained. 

13. The course is well organized and 
prepared . 

14. The class sessions are generally 
instructive and meaningful. 

SESSION RATINGS 


[ ] C ] 
C ] C ] 
C ] C 3 
[ ] [ ] 
[ ] [ ] 


SESSION 

SESSION 

SESSION 

SESSION 

SESSION 

SESSION 

SESSION 

SESSION 

SESSION 

SESSION 

SESSION 

SESSION 

SESSION 

SESSION 


1 — PDOS OVERVIEW 

2 — GETTING STARTED 

3 — A DEVELOPMENT SESSION 

4 — ADVANCED MONITOR COMMANDS 

5 — CHARACTER I/O 

6 — DEBUG 

7 — PDOS TASKING 

8 — PDOS FILE MANAGER 

9 — LANGUAGES 

10 — PDOS INTERNALS 

11 — HARDWARE INTERFACE 

12 — PDOS RUN MODULES 

13 — PDOS SYSTEM GENERATION AND 

INSTALLATION 

14 — PDOS CUSTOMER SERVICES 


POOR 
1 2 
[ ] C ] 
C ] C ] 
[ ] C ] 
C ] C ] 
[ ] C ] 
[ ] C ] 
[ ] C ] 
[ ] C ] 
[ ] [ ] 
[ ] [ ] 
[ ] [ ] 
c ] c ] 
[ ] [ ] 

C ] C ] 
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[ ] C ] [ ] 


[ ] [ ] [ ] 


[ ] [ ] C ] 


[ ] [ ] [ ] 


[ ] [ ] [ ] 


EXCELLENT 
3 4 5 

C ] C ] C ] 

C ] C ] C ] 

C ] [ ] C ] 

[ ] C ] C ] 

[ ] •[ ] [ ] 

[ ] [ ] [ ] 

C ] C ] C ] 

[ ] [ ] [ ] 

[ ] C ] [ I 

[ ] [ ] [ ] 

[ ] C ] C ] 

[ ] C 3 C ] 

[ ] C ] C ] 

C ] C 3 C ] 



I- List the experiences in the course which were of most 
and of least value to' you. 

MOST VALUE LEAST VALUE 


II. What are your specific suggestions for improving the. course? 


c 


III. What future courses would you like to see? 



value 
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rlf^s 


Answers to Exercises 


k:k 



ANSWERS TO SELECTED EXERCISES 


The following are selected sample answers to the exercises. Three 
type styles will be used to explain the answers where interaction between 
the computer and you are needed. They are: 


0 , 2 > 

RN NAME1 : SR, 1 
This is a comment 
SAMPLE OF EXERCISE 2-3 


Output from the computer . 
Input for you to enter . 
Explanatory notes. 

Section headings . 


Since your system may be set up differently than the system these 
exercises were worked out on, you may need to make allowances for minor 
differences in the output from the computer. This will become more 
||J|icessary as the exercises move to file access, tasking and advanced 
concepts . 


€ 
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SAMPLE OF EXERCISE 2-3 


Check which of the following are valid filenames: 


[ 

] 

THISISAFILNAME 

[X] 

FILE. NAM 

c 

] 

1FILENAME 

1 — I 
1 1 

THE : NAME 

1 — 1 
X 

i i 

FILE NAM 

rn 

X 
1 1 

A1 2 3 45 6 7 : EXT 


Comments : 

THISISAFILENAME 
1 FILENAME 
FILE NAM 
FILE. NAM 
THE : NAME 
A1 2345 6 7 : EXT 

SAMPLE OF EXERCISE 2-4 

0 , 2 >MF SNAMEilCCR] 

THIS IS A TEST OF MF[CR] 
ON FILE l.[CR] 

CESC] 

0 , 2 >MF JNAME:2[CR] 

THIS IS A TEST OF MF[CR] 
ON FILE 2.[CR] 

[ESC] 

0 , 2 > SA NAME: 1,TX [CRH 
0 , 2 > SA NAME:2,TXCCR] 

0 , 2>SF NAME:1[CR] 

THIS IS A TEST OF MF 
ON FILE 1. 

0, 2>SF NAME: 2 [CRH 
THIS IS A TEST OF MF 
ON FILE 2 . 

0 , 2> DF NAME: 3 ,10 [CRH 
0 , 2 > RN NAME : 3 , NAME : 4 [ CR]| 
0 , 2 > CF NAME:1,NAME:4[CR] 
0 , 2 > AF NAME: 2, NAME: 4 [CR] 
0 , 2 > SF NAME:4[CR] 

THIS IS A TEST OF MF 
ON FILE 1. 

THIS IS A TEST OF MF 
ON FILE 2. 

0 , 2 > DF lNAMECCR] 

POOS ERR 50 Invalid name 


Too long 

Starts with a number 

OK, but will need ( ) to be used w/monitor 
OK, but remember ' . ’ is not for extension 
Extension is more then 3 characters 
OK 
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0 , 2>LS NAME 0 : @ C CR] 


Your listing may vary from the following in terms of Disk=, Files=, 


Lev , 

sect. Date created. Last 

update . 

The 

listing should 

be the same for 

Name 

text, type and 

size should 

be the 

same . 




Disk 

=CLASSWORK/0 



Files 

=58/128 



Lev 

Name : ext 

Type Size 

Sect 

Date created 

Last 

update 

i 

NAME : 1 

TX 

i/i 

03D4 

17:37 04/04/85 

17:45 

04/04/85 

i 

NAME : 2 

TX 

i/i 

03D5 

17:39 04/04/85 

17:45 

04/04/85 

i 

NAME: 4 

TX C 

1/10 

03D6 

17:46 04/04/85 

17:47 

04/04/85 

0 , 2 > DM NAME:*CCR] 
Delete NAME: 1; 1/0? 

(y/n/ a) y 






E^iete NAME: 2; 1/0? 

(Y/N/A)Y 






Delete NAME: 4; 1/0? 
0 , 2 > LS NAME @ @ C CR] 

(Y/N/A)Y 






Your 

listing may vary from the 

following . 




Disk- 

=CLASSWORK/0 



Files 

=55/128 



Lev 

Name : ext 

Type Size 

Sect 

Date created 

Last 

update 

For ' 

the rest of the exercises 

it is assumed that a [CR] 

is used to enter 


commands . 



SAMPLE OF EXERCISE 2-5 


0, 2>SP 

Your example may vary from the following. 


Free=1388, 1388 
Used=556/962 

1) 

FOUR 

Total 

NUMBERS 

Available 

2 ) 

Total Available 


3) 

Total 

Currently Used 

4T 

Contiguous 
Total Allocated 


Your listing may vary from the following. 


Disk=CLASSWORK/0 
Lev Name : ext Type 

1 APLY TX~ 

1 DAN SY 


Files=55/ 128 

Size Sect Date created Last update 

6/7 0139 13:50 12/18/84 15:54 12/18/84 

1/1 00A4 02:17 00/00/00 02:27 00/00/00 


0 , 2>LS ;2 

Your listing may vary from the following. 

Disk=CLASSWORK/0 Files=55/l28 

Lev Name: ext Type Size Sect Date created Last update 

0 , 2>LS ; @ 


O 


SAMPLE OF EXERCISE 2-6 


0, 2>AM 
Free=0 
0, 2>FM 2 

Addr =00070800 Tbis. number will vary. 

0, 2> AM 

Fr ee=2 

0, 2>GM 

0, 2>AM 

Fr ee=0 


' 4 ^ 


SAMPLE OF EXERCISE 2-7 

0,2>rAH 
amC^a] 
gm[~a3 
AMC'Al 
FM 2C“A] 

AM[~A] 

LS ;2[“A3 
LS ;1[~A3 
SP[~A] 

LS NAME@:0C"A] 
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DM NAME C "A] 

amC"a][esc] 
0,2>LS ; 1 


Your listing may vary from the following 
Disk=CLASSWORK/0 Files=55/128 


Lev Name: ext 

Type 

Size 

Sect 

Date 

created 

Last 

update 

1 APLY 

TX 

6/7 

0139 

13:50 

12/18/84 

15:54 

12/18/84 

1 DAN 

0 , 2 > C ~a3 

LS ;1CDEL]2CCR] 

SY 

1/1 

00A4 

02:17 

00/00/00 

02:27 

00/00/00 

Disk=CLASSWORK/0 



Files 

=55/128 



mv Name : ext 

Type 

Size 

Sect 

Date 

created 

Last 

update 


0 , 2 > DF NAMECCR3 

0,2>C"A3 

DF NAME C C ~H3 [ ~H3 £ ~H] C^HlRNC^FH^FirFH^FlIirF;], NAME :1 
0, 2> C~A] 

RN NAME, NAME : 1 C "Hi C"H3C"H3C"H3[''H]C"H3CDEL]CDEL3 [DEL] [DEL] [DEL] C"H]C"H] 

C~h]dlCcr] 

0 , 2 > 


C 
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SAMPLE OF EXERCISE 3-1 


3, 2 > MTERM L 

SAMPLE OF EXERCISE 3-2 

— — — — — \ 

3 , 2 >MJEDY 

four screen should clear and the clock will appear in the bottom right 
nand corner of the screen 

[EscnrFn 

Your screen will clear then the help screen will appear will appear. Type 
any character to return to the edit screen. 

SAMPLE OF EXERCISE 3-3 


Type in the program as shown and make the corrections 

SAMPLE OF EXERCISE 3-4 

To save text 
£ x WjNAME : srCescHv 

To quit MJEDY 

roiv 

To re-enter MJEDY 
0, 2>GO 

To save text again 
[*W]rw][ESC]V 
To clear the buffer 


£ ~N]V 

To quit MJEDY 

roiiv 

To re-enter MJEDY and get file from the PDOS monitor 


0 , 2 > MJEDY NAME : SR 

Your file should be displayed on the screen 
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SAMPLE FOR EXERCISE 3-9 

File NAME: SR should look like the following 


* 

START 



* 


IDNT 1,0 

XREF MES01 , MES02 

XPMC MES01 

XGLU 

XCDB 

MULU £ 100 , D1 

XPMC MES02 

XCBD 
XPLC 

BRA . S START 

END START 


; FOR EXTRA 


; ASK FOR NUMBER 


; X 100 


File 

NAME1 : SR 

should look like the following 


IDNT 

1,0 

■JT 

XDEF 

MES01 , MES02 

MES31 

DC-B 

$0A, $0D, ‘ENTER YOUR NUMBER = 

MES02 

DC . B 
EVEN 
END 

‘ x 100 = ' ,0 


Assemble both parts 

0 , 2 >MASM NAME: SR, #NAME:OBJ, #NAME:LST 
63K PDOS Assembler R2.6e 10/17/84 
ERII, Copyright 1983 
SRC=NAME:SR 

S J= £ NAME : OBJ 
T=£NAME:LST 
ERR= 

XRF= 

END OF PASS 1 
END OF PASS 2 

0 , 2>MASM NAME1 : SR, £NAME1 : OBJ, #NAME1 :LST 

63K PDOS Assembler R2.6e 10/17/84 

ERII, Copyright 1983 

SRC=NAME1 : SR 

OBJ=£NAMEl :OBJ 

LST=£NAME1 :LST 

ERR= 

XRF= 

END OF PASS 1 
END OF PASS 2 
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Compar e 

the results by looking at 

the listing files. 

Page 

2 of 

the 

listings 

will 

show in NAME that MES01 

and MES02 are 'X' (External) 

type 

and 

in NAME1 

that 

MES01 and MES02 are 'D‘ (Defined) type. The 

★ ★ * ★ 

are also 

used in 

NAME 

to indicate that the 

value of the location 

is unknown 

at 

assembly 

time . 







0 , 2>SF NAME : LST 


PAGE: 1 07:16 04/05/85 

1 

2 . * 

3 0/00000000 :A08C**** START 

4 0/00000004 :A080 

5 0/00000006 :A056 

6 0/00000008 :C2FC0064 

7 0/ 0000000C: A08C**** 

8 0/00000010 :A050 

9 0/00000012 :A08A 

10 0/000000 14-.60EA 

11 * 

12 0/000000 16: 0/00000000 


68K PDOS Assembler 10/17/84 
FILE: NAME : SR, CLASSWORK 

XREF.l MES01 , MES02 

XPMC MES01 ; ASK FOR 

XGLU 

XCDB 

MULU.w #100,D1 

XPMC . MES02 ; X 100 

XCBD 

XPLC 

BRA. S START 
END START 


PAGE: 2 07:16 04/05/85 


68K PDOS Assembler 10/17/84 
FILE: NAME: SR, CLASSWORK 


DEFINED SYMBOLS: 

MES01 X X/00000000 MES02 X X/00000000 START 0/00000000 

EXTERNAL DEFINITIONS: NONE 
EXTERNAL REFERENCES : 

MES01 X X/00000000 MES02 X X/00000000 

UNDEFINED SYMBOLS: NONE 
UNREFERENCED SYMBOLS : NONE 
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0 , 2 > SF NAME! :LST 


PAGE : 1 


04/05/85 


68K PDOS Assembler 10/17/84 
FILE: NAME1 : SR, CLASSWORK 


1 00000000-j 0000017 XDEF 

2 0/00000000 :0A0D454E54455220 MES01 DC . B 

3 594F5552204E554D 

4 424552203D2000 

5 0/00000017 :207820313030203D MES02 DC . B 

6 2000 

7 0/000000 21:00 EVEN 

8 0/00000022: END 


MES01 , MES02 

$0A, $0D, 1 ENTER YOUR 


X 100 = ‘ ,0 


PAGE: 2 07:16 04/05/85 


68K PDOS Assembler 10/17/84 
FILE: NAME 1 : S R , C LAS S WO R' ' 


^DEFINED SYMBOLS: 

MES01 D 0/00000000 MES02 D 0/00000017 

EXTERNAL DEFINITIONS: 

MES01 D 0/00000000 MES02 D 0/000000 17 

EXTERNAL REFERENCES: NONE 
UNDEFINED SYMBOLS: NONE 
UNREFERENCED SYMBOLS: NONE 


( 
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SAMPLE OF EXERCISE 3-10 


0, 2>QLINK 

PDOS 68k Quick Linker 10/10/84 

ERII , Copyright 1983 

* INPUT NAME: OBJ 

ENTRY. ADDRESS=00000000 

* INPUT NAME1 :OBJ 

*MAP 


INPUT FILE MAP: 

INDEX FILE NAME TYP IDNT R V DATE TIME SECTION ADDRESSES 

1 DAN : OBJ 0/00000000 00000015 

2 DAN1 : OBJ 0/00000016 00000037 

SECTION GROUPS: NONE 
OVERFLOW REFERENCE VALUES: NONE 

SECTION BASE LOWEST HIGHEST 

0 00000000 00000000 00000038 

UNRESOLVED EXTERNAL DEFINITIONS: NONE 

UNRESOLVED EXTERNAL REFERENCES: NONE 
*SYFILE 
* OUTPUT tNAME 
*END 

SY FILE: BASE=$00000000 , LENGTH=56 
♦QUIT 
0 , 2 > NAME 

ENTER YOUR NUMBER = 23 [CR] x 100 = 2300 
ENTER YOUR NUMBER = 1CCR] x 100 .= 100 
ENTER YOUR NUMBER = [ESC] 

3, 2> 
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SAMPLE OF EXERCISE 4-1 


PART A: 

0, 2>MJEDY 

Create your file with the following text then write the text to filename 
NAME : DOA. Quit MJEDY 

MASM &1 : SR, #&1 : OBJ , tr&lLST 
RC 

Set the attribute to AC type and re-assemble your two source programs 


0 , 2 > SA NAME : DOA, AC 
0 , 2 > NAME : DOA NAME 

0, 2 > MASM NAME: SR, #NAME : OBJ , #NAME : LST 
R8K PDOS Assembler R2.6e 10/17/84 
■ERII, Copyright 1983 
SRC=NAME:SR 
OB J=#NAME : OBJ 
LST=#NAME : LST 
ERR= 

XRF= 

END OF PASS 1 
END OF PASS 2 
0 , 2 > RC 

0 , 2 > NAME : DOA NAME1 

0, 2 > MASM NAME1 : SR, #NAME1 : OBJ , #NAME1 : LST 

68K PDOS Assembler R2.6e 10/17/84 

ERII, Copyright 1983 

SRC=NAME1 :SR 

OBJ =#NAME1 :OBJ 

LST=#NAME1 :LST 

ERR= 


XRF= 

E^p OF PASS 1 
OF PASS 2 


0 , 2 > RC 
0 , 2 > 


PART B: 


Use MJEDY to create the following file 
QLINK 

INPUT &1.-OBJ 
INPUT &2 : OBJ 
MAP 

SYFILE 
OUTPUT #&1 
END 


111 





QUIT 

RC 

Don't forget to set the AC attribute. 
0 , 2 > SA NAME : DOL , AC 

Re-link your program object files. 


0 , 2 > NAME : DOL NAME, NAME1 
0, 2>QLINK 

PDOS 68k Quick Linker 10/10/84 

ERI I , Copyright 1983 

* INPUT NAME: OBJ 

ENTRY ADDRESS=00000000 

* INPUT NAME1 : OBJ 

*MAP 

INPUT FILE MAP: 

INDEX FILE NAME TYP IDNT R V DATE TIME 

1 NAME : OBJ 

2 NAME1 :OBJ 

SECTION GROUPS: NONE 
OVERFLOW REFERENCE VALUES: NONE 

SECTION BASE LOWEST HIGHEST 

0 00000000 00000000 00000038 

UNRESOLVED EXTERNAL DEFINITIONS: NONE 

UNRESOLVED EXTERNAL REFERENCES: NONE 

♦SYFILE 

♦OUTPUT #NAME 

♦END 

SY FILE: BASE=$00000000 , LENGTH=56 
♦QUIT 
3 , 2 > RC 
3,2> 

’ART C: 


se MJEDY to create the following file 


F &1=LINK.GT LINK 
F &1=ASSM.GT ASSM 
AME.-DOA £2,5:2, &3 
\ME : DOA &3,&2,&3 
C LINK 
INK 

uME : DOL &2,&3 


SECTION ADDRESSES 
0/00000000 00000015 
0/00000016 00000037 
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ASSM 

NAME : DOA &2, , &3 
IF &3. NAME: DOA &3 
RC • 


Set, the attribute to AC- type 
0 , 2 > SA NAME: ALL, AC 


Test ASSM path 


0 , 2 > NAME : ALL ASSM, NAME, NAME 1 
0, 2> IF ASSM=LINK.GT LINK 
0 , 2> IF ASSM=ASSM.GT ASSM 
0 , 2 >GT ASSM 

NAME: DOA NAME , NAME , NAME1 
NAME: DOA NAME 1 , NAME , NAME 1 
®T LINK 
LINK 

NAME : DOL NAME, NAME 1 
RC 

ASSM 

0 , 2 > NAME : DOA NAME, , NAME1 

0 , 2>MASM NAME : SR, £NAME :OBJ , #NAME : LST 

68K PDOS Assembler R2.6e 10/17/84 

ERI I , Copyright 1983 

SRC=NAME : SR 

OBJ=#NAME : OBJ 

LST=#NAME : LST 

ERR= 


XRF= 

END OF PASS 1 
END OF PASS 2 


0, 2>RC 

0 , 2 > IF NAME1 .NAME: DOA NAME1 
0, 2 > NAME: DOA NAME1 

! > MASM NAME1 : SR, #NAME1 :OBJ, SNAME1 : LST 
PDOS Assembler R2.6e 10/17/84 
ERII , Copyright 1983 
SRC=NAME1 : SR 


OBJ=#NAMEl :OBJ 
LST=#NAME1 : LST 
ERR= 


XRF= 

END OF PASS 1 
END OF PASS 2 
0 , 2 > RC 
0, 2> RC 


Test LINK path 


0 , 2 > NAME : ALL LINK, NAME, NAME 1 



0 , 2> IF LINK=LINK . GT LINK 
0 , 2>GT LINK 
IF LINK=AS SM . GT ASSM 
NAME : DOA NAME , NAME , NAM El 
NAME : DOA NAME 1 , NAME , NAME 1 
GT LINK 
LINK 

0 , 2 > NAME : DOL NAME, NAME 1 
0 , 2>QLINK 

PDOS 68k Quick Linker 10/10/84 

ERII , Copyright 1983 

* INPUT NAME: OBJ 

ENTRY ADDRESS=00 000000 

* INPUT NAME1 : OBJ 

*MAP 

INPUT FILE MAP: 

INDEX FILE NAME TYP IDNT R V DATE TIME 

1 NAME: OBJ 

2 NAME 1: OBJ 

SECTION GROUPS: NONE 
OVERFLOW REFERENCE ' VALUES : NONE 

SECTION BASE LOWEST HIGHEST 

0 00000000 00000000 00000038 

UNRESOLVED EXTERNAL DEFINITIONS: NONE 

UNRESOLVED EXTERNAL REFERENCES: NONE 

*SYFILE 

♦OUTPUT #NAME . 

*END 

SY FILE: BASE=$00000000 , LENGTH=56 
*QUIT 
0 , 2 > RC 

Test both (null argument) path 


0 , 2 > NAME : ALL , NAME , NAME1 

0 , 2 > IF =LINK . GT LINK 

3 , 2 > IF =ASSM . GT ASSM 

3, 2 > NAME: DOA NAME, NAME, NAME 1 

3 , 2 > MASM NAME: SR, #NAME:OBJ, #NAME : LST 

S8K PDOS Assembler R2.6e 10/17/84 

’.RII, Copyright 1983 

iRC=NAME : SR 

'BJ=# NAME: OBJ 

ST=S NAME : LST 

RR= 

RF= 


SECTION ADDRESSES 
0/00000000 00000015 
0/000000 16 00000037 
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END OF PASS 1 

g«2>as pass 2 

0 , 2 > NAME : DO A NAME 1 , NAME , NAME 1 

0, 2>MASM NAME1 : SR, *NAME1 : OBJ , #NAME1 : LST 

6SK PDOS Assembler R2.6e 10/17/84 

ERII , Copyright 1983 

SRC=NAME1 : SR 

OBJ=#NAMEl :OBJ 

LST=»NAME1 :LST 

ERR= 

XRF= 

END OF PASS 1 
END OF PASS 2 
0, 2>RC 
0 , 2>GT LINK 
LINK 

ft), 2 > NAME : DOL NAME , NAME 1 
* 0 , 2>QLINK 

PDOS 68k Quick Linker 10/10/84 

ERII, Copyright 1983 

♦INPUT NAME: OBJ 

ENTRY ADDRESS =0000 0000 

♦INPUT NAME1 :OBJ 

♦MAP 

INPUT FILE MAP: 

INDEX FILE NAME TYP IDNT R V DATE TIME 

1 NAME : OBJ 

2 NAME 1: OBJ 

SECTION GROUPS: NONE 
OVERFLOW REFERENCE VALUES: NONE 

SECTION BASE LOWEST HIGHEST 

| 0 00000000 00000000 00000038 

UNRESOLVED EXTERNAL DEFINITIONS: NONE 

UNRESOLVED EXTERNAL REFERENCES: NONE 

♦SYFILE 

♦OUTPUT xNAME 

♦END 

SY FILE: BASE=$00000000 , LENGTH=56 
♦QUIT 
0 , 2 > RC 

SAMPLE OF EXERCISE 4-2 
0 , 2> SF SY$STRT 


SECTION ADDRESSES 
0/00000000 00000015 
0/00000016 00000037 
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Your start up file may be different 

MTIME P,85 

BP -3,1 

LT 

DT 

RC 

SAMPLE OF EXERCISE 5-1 


These exercise answers will vary from your. 


0, 2>LT 
Task Prt Tm 
0/0 64 1 

1/0 64 1 

*2/0 64 1 


Event Map Size 
97/-128 0 280 

98/-128 0 200 

0 • 32 


PC SR TB BM EM 

00C2F0 0000 00B000 00CC46 051000 
072298 0000 071000 072E0A 0A3000 
0023A6 2004 069000 06AC46 071000 


PRT U1P U2P 
1/1 1/1 B/2 
2/1 2/1 B/2 
7/1 7/1 'B/2 


In this example your are task 2. U1P is 7 and U2P is 11 ($B hex). U1P 


is a type 1 

0, 2>BP 
Port Type 

por t . 
f pi8dbs 

Base 

Rate 

Task 

#1 

1 

00000000 

FFFFC301 

19200 

0 

#2 

1 

00000000 

FFFFC311 

19200 

1 

#3 

1 

00001000 

FFFFC341 

1200 


#4 

1 

00000000 

FFFFC351 

19200 


tr 3 

1 

00000000 

FFFFC601 

19200 


#6 

1 

00000000 

FFFFC61 1 

19200 


#7 

1 

00000000 

FFFFC641 

19200 

2 

#8 

1 

00000000 

FFFFC651 

19200 


#9 

1 

00000000 

FFFFC681 

19200 


#10 

1 

00000000 

FFFFC691 

19200 


#11 

2 

00000000 

FFFFC1C1 

19200 


Port 

7 (U1P 

or task 

2) is set 

at. a base of $FFFFC641 and a baud rate of 


19200 


3 , 2 > 
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SAMPLE OF EXERCISE 5-2 


For this exercise I will use Task 1 and 2 as partners. Task 1 is on 
port 2 and Task 2 is on Port 7 both are running at. 19200 baud. 

Task 2. Select Task l‘s port 2 as your U2P 

0 , 2 >BP -2,19200 

Copy NAME: SR to your partners terminal. 

0 , 2 > CF NAME : SR, TTA 

Your file text should appear on your partner's terminal. Select output 
to both unit 1 and unit 2 do a LT command. ~~ 

0, 2 >UN 3 

|Pfr\ 

The following will appear on both terminals 


0, 2>LT 


Task 

Pr t 

Tm 

Event 

Map 

Size 

PC 

SR 

TB 

BM 

■ EM 

PRT 

U1P 

U2P 

0/0 

64 

1 

97/-128 

0 

280 

00C2F0 

0000 

00B000 

00CC46 

051000 

1/1 

1/1 

B/2 

1/0 

64 

1 

98/-128 

0 

200 

072298 

0000 

071000 

072E0A 

0A3000 

2/1 

2/1 

B/2 

*2/0 

64 

1 


0 

32 

0023A6 

2004 

069000 

06AC46 

071000 

7/1 

7/1 

B/2 


0, 2>BP 





Por t 

Type 

f pi8dbs 

Base 

Rate 

Task 

#1 

1 

00000000 

FFFFC301 

19200 

0 

S2 

1 

00000000 

FFFFC311 

19200 

1 

TT 3 

1 

00001000 

FFFFC341 

1200 


#4 

1 

00000000 

FFFFC35 1 

19200 


#5 

1 

00000000 

FFFFC601 

19200 


#6 

1 

00000000 

FFFFC611 

19200 


#7 

1 

00000000 

FFFFC641 

19200 

2 

#8 

1 • 

00000000 

FFFFC651 

19200 


#9 

1 

00000000 

FFFFC681 

19200 


jpg 

1 

00000000 

FFFFC69 1 

19200 


Irl 

2 

00000000 

FFFFC1C1 

19200 



Set to unit 2 
0, 2 >UN 2 

Output will only appear on your partners terminal 

0 , 2 > LT 
0, 2 > UN 1 
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Spool your unit 2 to a file called NAME:LOG. Select both unit 1 and 
unit 2 for output and do a LT and BP command. Re-select to unit 1, then 
reset your spool file 


0,2>SU 2 , NAME : LOG 
0 , 2 > UN 3 
0, 2>LT 


Task 

Prt 

Tm 

Event 

Map 

Size 

PC 

SR 

TB 

BM 

EM 

PRT ' 

U1P 

U2P 

0/0 

64 

1 

97/-128 

0 

280 

00C2F0 

0000 

00B000 

00CC46 

051000 

1/1 

1/1 

B/2 

1/0 

64 

1 

98/-128 

0 

200 

072298 

0000 

071000 

072E0A 

0A3000 

2/1 

2/1 

B/2 

*2/0 

64 

1 


0 

32 

0023A6 

2004 

069000 

06AC46 

071000 

7/1 

7/1 

B/2 


0, 2>BP 
Port Type 

f pi8dbs 

#1 

1 

00000000 

#2 

1 

00000000 

#3 

1 

00001000 

#4 

1 

00000000 

#5 

1 

00000000 

#6 

1 

00000000 

#7 

1 

00000000 

#8 

1 

00000000 

#9 

1 

00000000 

#10 

1 

00000000 

#11 

2 

00000000 

0, 2 >UN 

1 



Base 

Rate 

Task 

FFFFC301 

19200 

0 

FFFFC311 

19200 

1 

FFFFC341 

1200 


FFFFC351 

19200 


FFFFC601 

19200 


FFFFC611 

19200 


FFFFC641 

19200 

2 

FFFFC651 

19200 


FFFFC681 

19200 


FFFFC691 

19200 


FFFFC1C1 

19200 



Reset your spool file. 


0 , 2 > SU 0 


Type out the log file to your terminal 


0 , 2 > SF NAME ; LOG 
was 1 
0, 2>LT 

Task Prt Tm Event Map Size PC 
0/0 64 1 97/-128 0 280 00C2F0 

1/0 64 1 98/-128 0 200 072298 

*2/0 64 1 0 32 0023A6 


'SR TB BM EM PRT U1P U2P 
0000 00B000 00CC46 051000 1/1 1/1 B/2 
0000 071000 072E0A 0A3000 2/1 2/1 B/2 
2004 069000 06AC46 071000 7/17/1 B/2 
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SAMPLE OF EXERCISE 6-1 

The [CR] will be denoted in this sample to show when and where 
the return key ” 

Load NAME into memory and enter the debugger 


0 , 2>LO NTAMECCR] 
0, 2>PBCCR] 


Type the help key 


H 


A0-7 

A-reg 

tr 

Mem IAC 

B { # , a } 

Lst/def break 

#, # 

Mem dump 

D0-7 

D-r eg 

#, #+ 

Disassemble 


Go & break 

#, #, #[WL) 

Find B/W/L 

Rr 

Last dump 

#(0-7 

d ( Ax ) 

0 

Offset 

#(+-}# 

Hex +/- 

p 

PC 



Q 

Exit 

- 

Open previous 

R 

Reg dump 

LF 

Open next 

S 

Status 

+ # 

# + offset 

T 

Trace 



U 

Unit 



W [ s , s z } 

Window 

"D 

Disassemble 

X 

Set breaks & exit 



z 

Reset 




Disassemble the first 10 bytes of code. 


+ 0 , + 10 + 


A08C 

Aline 

$A08C 

0014A080 

ORI.B 

#$80, ( A4 ) 

A056 

Aline 

$A056 

C2FC0064 

MULU.W 

#$0064, D1 

A08C 

Aline 

$A08C 

001FA050 

ORI.B 

#$50, (A7)+ 


Search task memory for a $A080 


+0,+10, A080W 
069504 


Set a break point at the MULU instruction and execute the program. 

B1,+8[CR] MULU . W #$0064, D1 

G 

ENTER YOUR NUMBER = 12 [CR] 

3> 069508/0008: C2FC0064 MULU.W #$0064, D1 

T > 06950C/000C: A08C Aline $A08C 


to type 
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When the break point, is reached dump the registers 
RREGISTER DUMP: PC=0006950C SR=0000 SS=000693B0 

D0 : 00000000 000004B0 00000000 00000000 00000000 00000000 00000000 00000000 
A0 : 00000000 00069003 00000000 00000000 00000000 00009000 00069000 00071000 
[ESC] 

Dump memory from +0 , +40 
+0,+40[CR] 

069500/0000: A08C 0014 A080 A056 C2FC 0064 A08C 001F V...d 

069510/0010: A050 A08A 60EA 0A0D 454E 5445 5220 594F .P ENTER YO 
069520/0020: 5552 204E 554D. 4245 5220 3D20 0020 7820 UR NUMBER = . x 
069530/0030: 3130 3020 3D20 0000 0A0D 3436 300D 202B 100 = 460. + 

Return to the PDOS monitor 


Q 

0 , 2 > 
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SAMPLE OF EXERCISE 7-1 


Create a background son task to reassemble and re-link NAME 

0 , 2 > CT ( NAME : ALL , DAN , DAN1 ) 

*Task #3 


Do a 

LT 

command to note 

the 

father /; 

son relationship 





0, 2>LT 
Task Prt 

Tm 

Event Map 

Size 

PC 

SR 

TB 

BM 

EM 

PRT 

U1P 

U2P 

0/0 

64 

i 

97/-128 0 

280 

00C2F0 

0000 

00B000 

00CC46 

051000 

i/i 

1/1 

B/2 

1/0 

64 

1 

98/-128 0 

200 

072298 

0000 

071000 

072E0A 

0A3000 

2/1 

2/1 

B/2 

*2/0 

64 

i 

0 

48 

0023A6 

2004 

05D000 

05EC46 

069000 

7/1 

7/1 

0/0 

3/2 

64 

i 

0 

32 

001584 

2000 

069000 

06DBC0 

071000 

0/0 

0/0 

0/0 

Chu 

should 

note that task 3's father is 

task 2 

and task 2 is 

the 

curr 

ent 


task 

SAMPLE OF EXERCISE 7-2 

Create. the NAME : 1 as a procedure file with the following text 

ltCcr] 

Set the AC attribute 


0, 2>SA NAME : 1 , AC 

Create the TASK using your console port (U1P) for output. We are-- assuming 
for this task that port 7 is U1P ~ ~ 

0 , 2 > CT NAME : 1 , , , 7 
, 0>NAME : 1 *T 
0,2>aLs Tk 


C/0 

EM 

64 

1 

PRT U1P 
97/ -128 

U2P 

0 

296 

00C2F0 

0000 

00B000 

00CC46 

055000 

1/1 

1/1 

B/2 

1/0 

64 

1 

98/ -128 

0 

200 

072298 

0000 

071000 

072E0A 

0A3000 

2/1 

2/1 

B/2 

2/0 

64 

1 


0 

. 48 

0023A6 

2004 

05D000 

05EC46 

069000 

7/1 

7/1 

0/0 

r 4/ 2 

64 

1 


0 

32 

0021E0 

2000 

055000 

055500 

05D000 

0/0 

7/1 

0/0 


You will see an intermix of output on the screen from the son tasks LT 
command and your tasks. Now type a LT and note the son task number 4 is 
still defined and is waiting on event 96, the phantom input port event 


0 , 2 > LT 


Task 

Prt 

Tm 

Event 

Map 

Size 

PC 

SR 

TB 

BM 

EM 

PRT 

U1P 

U2P 

0/0 

64 

1 

97/-128 

0 

280 

00C2F0 

0000 

00B000 

00CC46 

051000 

1/1 

1/1 

B/2 

1/0 

64 

1 

98/-128 

0 

200 

072298 

0000 

071000 

072E0A 

0A3000 

2/1 

2/1 

B/2 

*2/0 

64 

1 


0 

48 

0023A6 

2004 

05D000 

05EC46 

069000 

7/1 

7/1 

0/0 
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4/2 64 1 96 0 32 0021E0 2000 055000 055500 05D000 0/0 7/1 0/0 

Kill your son task. 

0 , 2 > KT 4 

Change NAME;1 to have an RC or RS at the end and repeat the task creation 


and the 

LT 

command 











0, 2>CT NAME 












, 0 > NAME : 

1 *T 












0, 2>aLs 

Tk 












T EM 


PRT U1P U2P 










0/0 64 

1 

97/-128 

0 

296 

00C2F0 

0000 

00B000 

00CC46 

055000 

1/1 

i/i 

B/2 

1/0 64 

1 

98/-12S 

0 

200 

072298 

0000 

071000 

072E0A 

0A3000 

2/1 

2/1 

B/2 

2/0 64 

1 


0 

48 

0023A6 

2004 

05D000 

05EC46 

069000 

7/1 

7/1 

0/0 

*4/2 64 

1 


0 

32 

0021E0 

2000 

055000 

055500 

05D000 

0/0 

7/1 

0/0 

Do the 

LT 

command 

and 

you 

will note that the 

son task in 

not present. 

0, 2>LT 













Task Prt 

Tm 

Event 

Map 

Size 

PC 

SR 

TB 

BM 

'• EM 

PRT 

U1P 

U2P 

0/0 64 

i 

97/-128 

0 

280 

00C2F0 

0000 

00B000 

00CC46 

051000 

i/i 

1/1 

B/2 

1/0 64 

i 

98/-128 

0 

200 

072298 

0000 

071000 

072E0A 

0A3000 

2/1 

2/1 

B/2 

*2/0 64 

i 


0 

48 

0023A6 

2004 

05D000 

05EC46 

069000 

7/1 

7/1 

0/0 

SAMPLE OF EXERCISE 7 

-3 










Find the 

address of 

your 

task control block 






0, 2 >LT 







* 






Task Prt 

Tm 

Event 

Map 

Size 

PC 

SR 

TB 

BM 

EM 

PRT 

U1P 

U2P 

0/0 64 

i 

97/-128 

0 

280 

00C2F0 

0000 

00B000 

00CC46 

051000 

i/i 

1/1 

B/2 

1/0 64 

i 

98/-128 

0 

200 

072298 

0000 

071000 

072E0A 

0A3000 

2/1 

2/1 

B/2 

*2/0 64 

i 


0 

48 

0023A6 

2004 

05D000 

05EC46 

069000 

7/1 

7/1 

0/0 

The Task control block for 

task 

2 is 

. at address $050000 

to $05D000 + 

5500. 













Use debug 

to display your 

task control block 

. Your display will vary 


depending on the state of your task 

0, 2>PBCCR] 

5D000, 5D500CCR] 


35D000/FB00: 

5432 

0000 

0000 

0000 

5041 

5379 

0000 

2F07 

T2 . . . . 

. . PASy. 

• /. 

35D010/FB10: 

0000 

0000 

0000 

0095 

0C02 

A91B 

0C02 

A91B 



• . • 

35D020 / FB20 : 

5433 

0000 

0000 

0000 

0000 

0079 

1004 

2F03 

T3 . . . . 

Y- 

./• 

55D030/FB30: 

0000 

0009 

0009 

00AC 

0C02 

A91B 

0C03 

A91B 



• • . 

J5D040/FB40 : 

5433 

0000 

0000 

0000 

5041 

5379 

0004 

2F12 

T3 . . . . 

. . PASy . 

• /. 

15D050/FB50: 

0000 

0002 

0002 

002B 

0C03 

A91B 

0C03 

A91B 


. + 

• . . 

'5D060/FB60 : 

5443 

4F4D 

5000 

0000 

0000 

0079 

8004 

2F1 5 

TCOMP . 

y • 

• /. 

5D070/FB70: 

0000 

0001 

0001 

0083 

0C03 

A91B 

0C03 

A91B 



. • . 
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05D080/FB80: 
05D090/FB90: 
05D0A0 / FBA0 : 
05D0B0/FBB0: 
05D0C0/FBC0: 
05D0D0 / FBD0 : 
05D0E0/FBE0: 
05D0F0 / FBF0 : 
05D100/FC00: 
05D110/FC10: 
05D120 / FC20 : 
05D130/FC30: 
05D140 / FC40 : 
05D150/FC50: 
05D160/FC60: 
g^5D170/FC70: 
%ToD180/FC80 : 
05D190/FC90: 
05D1A0/FCA0: 
05D1B0/FCB0: 
05D1C0/FCC0: 
05D1D0/FCD0: 
05D1E0/FCE0: 
05D1F0/FCF0: 
05D200/FD00: 
05D210/FD10: 
05D220/FD20: 
05D230/FD30: 
05D240/FD40: 
05D250/FD50: 
05D260/FD60: 
05D270/FD70: 
05D280/FD80: 
05D290/FD90: 
&5D2A0/FDA0: 
CJD2B0/FDB0: 
05D2C0/FDC0: 
05D2D0/FDD0: 
05D2E0 / FDE0 : 
05D2F0/FDF0: 
05D300/FE00: 
05D310/FE10: 
05D320/FE20: 
05D330/FE30: 
05D340/FE40: 
05D350/FE50: 
05D360/FE60: 
05D370/FE70: 
05D330/FE80: 
05D390/FE90: 
05D3A0/FEA0: 
05D3B0/FEB0 : 


5445 

4D50 

0000 

0000 

0000 

0001 

0200 

2F1 7 

TEMP / . 

0000 

0067 

0002 

0051 

0E25 

A953 

0A19 

AA85 

. . 

• cj • • • Q . % . S . • » • 

5445 

4D50 

3100 

0000 

0000 

0001 

0200 

2F50 

TEMPI /P 

0000 

000B 

000B 

005B 

0A31 

A953 

0C08 

AA85 

• • 

S ■ • • • 

5445 

4D50 

4F00 

0000 

0000 

0028 

0004 

2F57 

TEMPO ( . . /W 

0000 

0002 

0002 

0047 

102C 

A96D 

102D 

A96D 

• • 

• • ■ • • G • / • m • • m 

5445 

5354 

0000 

0000 

0000 

0081 

1000 

2F5A 

TEST. . : / Z 

0000 

0000 

0000 

00A0 

0B0F 

A91B 

0B0F 

A91B 

• • 


5042 

0033 

0054 

454D 

5000 

3100 

3700 

4441 

PB 

. 3 . TEMP . 1 . 7 . DA 

4E2C 

4441 

4E31 

0000 

0000 

0000 

0000 

0000 

N, 

DAN1 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

. . 


0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

• • 


0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

• • 


3000 

0000 

0000 

0000 

0000 

00FA 

0000 

0000 

0. 


0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

• • 


5042 

004C 

5400 

554E 

2033 

0053 

5520 

322C 

PB 

. LT . UN 3 . SU 2 , 

5445 

4D50 

004D 

4A45 

4459 

2054 

454D 

5031 

TEMP . MJEDY TEMPI 

004C 

5400 

474D 

004C 

5400 

4B54 

2033 

004B 

.LT.GM.LT.KT 3.K 

5420 

3400 

4B54 

2035 

0043 

0000 

2000 

0000 

T 

4.KT 5 . C 

0000 

2000 

3230 

3330 

0031 

4230 

0000 

0000 


. .0000.1B0 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 



0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 



0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 



0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 



0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 



0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 



0006 

9000 

0000 

0000 

0000 

0073 

0000 

1300 


s . . . • 

0000 

0000 

FFFF 

0002 

0851 

0C50 

0000 

21E0 


Q.P. . 1 . 

0000 

0000 

FFFF 

8A6E 

000F 

F400 

0005 

D100 


n 

FFFF 

8807 

0007 

0007 

1000 

0A0D 

2033 

0009 


3 . . 

F88A 

0000 

0000 

0009 

F88A 

0000 

0000 

0000 



000F 

0000 

FF04 

0851 

0C50 

0000 

000A 

0000 


Q.P 

0000 

0010 

0000 

000F 

F800 

0000 

A75A 

FFFF 


z. . 

8807 

0007 

0007 

0FFC 

0007 

0FFC 

0000 

003D 


. ,= 

0007 

0FF8 

FFFF 

0004 

0000 

2004 

0000 

000D 



0000 

004E 

0000 

0007 

FFFF 

FFFF 

0000 

23A6 


.N #• 

0000 

0004 

0000 

00AF 

0000 

004E 

FFFF 

8807 


.r Z 

FFFF 

C541 

0000 

9000 

0005 

D000 

2000 

0000 


.A 

3626 

FFFF 

0004 

FFFF 

0004 

0000 

2004 

0000 

6 Sc 


000E 

0000 

00C2 

0000 

0007 

FFFF 

FFFF 

0000 



23A6 

0000 

2000 

0000 

00E6 

0000 

0021 

0000 

7T • 

8. . 

A65A 

0005 

D1B3 

0000 

AEF4 

0000 

9000 

0005 

.Z 


D000 

2000 

0007 

0FFC 

0000 

0020 

0000 

0000 


• ••••••••«••• 

0000 

0000 

0000 

0000 

0000 

0002 

0000 

0007 



2004 

0000 

0000 

23A6 

0000 

0020 

FFFF 

C641 


# A 

0000 

0BC4 

0000 

9158 

0005 

D1AE 

0000 

9100 


X 

0000 

9000 

0005 

D000 

2004 

0000 

2308 

0000 


#. . . 

203 A 

FFFF 

FFFF 

0000 

0000 

0000 

002C 

0701 


•••••••••••/*• 

0000 

2004 

0000 

0000 

23A6 

0000 

0020 

0005 


It 

tt • • • • * • 

D390 

0005 

D1B4 

0000 

266B 

0005 

D39C 

0005 


• •*••* 

D500 

0000 

9000 

0005 

D000 

0004 

0000 

4E0C 


-N" 

0005 

D324 

0000 

0000 

2004 

0000 

23A6 

0000 


. 
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05D3C0/FEC0: 
05D3D0/FED0: 
05D3E0/FEE0 : 
05D3F0 / FEF0 : 
05D400/FF00: 
05D410/FF10: 
05D420 / FF20 : 
05D430/FF30: 
05D440/FF40: 
05D450/FF50: 
05D460/FF60: 
05D470/FF70: 
05D480/FF80: 
05D490/FF90: 
05D4A0/FFA0: 
05D4B0/FFB0: 
05D4C0/FFC0: 
05D4D0/FFD0: 
05D4E0/FFE0: 
05D4F0/FFF0: 


0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 


0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 


0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 


0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 


0000 

0000 

0000 

0000 

0000 

0000 

5002 

0000 

P. . . 

0000 

0000 

0000 

0000 

0000 

0005 

D103 

0005 


EC46 

0007 

1000 

0005 

D500 

0000 

0000 

0000 .F 


0000 

0049 

0420 

00FA 

0000 

0C00 

9B59 

FF00 ...I. . 

Y. . 

0204 

0000 

0000 

0000 

0000 

0002 

002B 

0307 

B. . 

0203 

0700 

0000 

0000 

0400 

0051 

0053 

0000 

. . . .Q . S . . 

0000 

0000 

0000 

0000 

0000 

0000 

0005 

E930 

0 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 


0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 


0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 


0000 

0000 

0000 

9000 

0005 

D000 

0007 

1000 


0000 

0005 

D500 

0005 

D500 

0007 

1000 

0000 


0005 

D500 

0000 

0000 

0005 

D000 

0005 

D500 


0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 


0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 


0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 



Return to the PDOS monitor . 
Q 

0 , 2 > 


SAMPLE OF EXERCISE 7-4 


Type LT and find out your task number 


0, 2>LT 


Task 

Prt 

Tm 

Event 

Map 

Size 

PC 

SR 

TB 

BM 

EM 

PRT 

U1P 

U2P 

0/0 

64 

1 

97/-128 

0 

280 

00C2F0 

0000 

00B000 

00CC46 

051000 

1/1 

1/1 

B/2 

1/0 

64 

1 

98/-128 

0 

200 

072298 

0000 

071000 

072E0A 

0A3000 

2/1 

2/1 

B/2 

*2/0 

64 

1 


0 

48 

0023A6 

2004 

05D000 

05EC46 

069000 

7/1 

7/1 

0/0 


You will note that you are task 2. Use MJEDY and create NAME3:SR with 
the following textT 


TEVENT EQU 64+2 

* 

START MOVEQ.L #-TEVENT,Dl 
XSEF 

* 

LOOP MOVEQ.L #TEVENT,D1 
XSUI 

XPMC MESS I 

BRA LOOP 


; FOR 2 FOR TASK 2 

; CLEAR THE EVENT TO 0 
; RESET EVENT PAGE 5-91 

; WAIT FOR EVENT 

; SUPPEND ON EVENT 

; WRITE TO UNIT 1 THE MESSAGE 


MESS1 DC . B ?0A, $0D, 'HELLO THERE THIS IS A VERY LONG MESSAGE 
* 


0 


END START 
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Assemble the Program 


0 , 2 > MASM NAME3 : SR, JNAME3 : OBJ 

68K PDOS Assembler R2.6e 10/17/84 

ERII, Copyright 1983 

SRC=NAME3:SR 

OBJ=#NAME3 :OBJ 

LST= 

ERR= 

XRF= 

END OF PASS 1 
END OF PASS 2 

List your task to find out what your U1P port number . 


0, 2>LT 


^ask 

Prt 

Tm 

Event 

Map 

Size 

PC 

SR 

TB 

BM 

EM 

PRT 

U1P 

U2P 

0/0 

64 

1 

97/-128 

0 

280 

00C2F0 

0000 

00B000 

00CC46 

051000 

1/1 

1/1 

B/2 

1/0 

64 

1 

98/-128 

0 

200 

072298 

0000 

071000 

072E0A 

0A3000 

2/1 

2/1 

B/2 

*2/0 

64 

1 


0 

80 

0023A6 

2304 

05D000 

061BC0 

071000 

7/1 

7/1 

0/0 


You axe port 7. Nov create the task with 2kb of memory on port 7. 


0 , 2 > CT NAME3 : OBJ , 2 , , 7 

3 : OBJ*Task S3 

0 , 2 > 

Now list the tasks and see if your son task is suppended on the right 
event number • ~ ~~ ~~~ " 


0, 2>LT 


Task 

Prt 

Tm 

Event 

Map 

Size 

PC 

SR 

T3 

BM 

EM 

PRT 

U1P 

U2P 

0/0 

64 

1 

97/-128 

0 

280 

00C2F0 

0000 

00B000 

00CC46 

051000 

i/i 

1/1 

B/2 

1/0 

64 

1 

98/-128 

0 

200 

072298 

0000 

071000 

072E0A 

0A3000 

2/1 

2/1 

B/2 

0 

64 

1 


0 

80 

0023A6 

2004 

05D000 

361BC0 

071000 

7/1 

7/1 

0/0 

1^/2 

64 

1 

66 

0 

2 

05CD08 

0000 

05CS00 

05CD38 

05D000 

0/0 

7/1 

0/0 

Set • 

the 

event 

. on and 

see 

£ 

P 

ft 

. happens 








0, 2>EV 66 

HELLO THERE THIS IS A VERY 
Was 0LONG MESSAGE 


You should note that the message from the son task is intermixed with 
the father task output. Kill the son task and verify that it is gone. 


0 , 2 > KT 3 
0 , 2 > LT 

Task Prt Tm Event Map Size PC SR TB BM EM 

0/0 64 1 97/-128 0 -280 00C2F3 0000 00B000 00CC46 051000 


PRT U1P U2P 
1/1 1/1 B/2 
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1/0 64 1 98/ -128 0 200 072298 0000 071000 072E0A 0A3000 2/1 2/1 B/2 

*2/0 64 1 0 80 0023A6 2004 05D000 061BC0 071000 7/1 7/1 0/0 

0 , 2 > 

SAMPLE OF EXERCISE 7-5 

Recreate the task a higher priority then set the event, flag 

0 , 2 > CT NAME3 : OBJ ,2,65,7 ! 

0 , 2 > NAME3 : OBJ 
*Task #3 
0 , 2 > 

0 , 2 > NAME3 : OBJ 
0, 2>EV 66 

HELLO THIS IS A VERY LONG MESSAGE 
Was 0 

Now lover the task to a lover priority and set the event flag 

0, 2>TP 3,63 
0, 2>EV 66 
Was 0 
0 , 2 > 

HELLO THIS IS A VERY LONG MESSAGE 

You should note that when the son task is higher priority that it comp- 


letes its output 

to the 

console before the father 

task can output 

When 

the son task is 

lower 

priority the father task 

completes its 

output 


first. 

Kill the son task. 

0, 2>KT 3 

SAMPLE OF EXERCISE 7-6 

Create a procedure file NAME:4 that will return to your task a message 

SM -1, Hello there from your son taskll 
RC 

Set the attributes to AC type 

3 . 2 > SA NAME ; 4 , AC 

lun the file and you should see the message when you type the [CR] 

1 . 2 > CT NAME : 4 , 2 
Task 3 
,2>[CR] 

Task 3: Hello there from your son taskii 
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SAMPLE OF EXERCISE 7-7 


Using MJEDY redo the file to look like the following and save the changes 
into file NAMES :SR. ' 


TEVENT 

EQU 

64+2 

★ 

START 

MOVE . L 

# -TEVENT , D1 

* 

XSEF 


LOOP 

MOVE . L 

#100*5, D0 


MOVEQ . L 

#128, D1 


XDEV 

LSL.W 

#8 , D1 


ADD I .B 

#TEVENT,D1 


XSUI 
CMP I . B 

#TEVENT,D0 


BNE.S 

LABI 


XPMC 

MESS1 

★ 

BRA 

LOOP 

LABI 

XPMC 

MESS2 


BRA 

LOOP 

* 




; USE YOUR TASK NUMBER FROM LT COMMAND : 

; CLEAR THE EVENT TO 0 
; RESET EVENT PAGE 5-91 

; WAIT ABOUT 5 SECONDS 
; USE THE LOCAL EVENT 
; SET UP A DELAY ENTRY 
; SHIFT EVENT OVER 1 BYTE 
; WAIT FOR EVENT 
; SUPPEND ON EVENT 


; WRITE TO UNIT 1 THE MESSAGE 


MESS1 DC . B $0A, $0D, 'HELLO THERE THIS IS A VERY LONG MESSAGE ' , 0 
MESS 2 DC . B $0A, $0D, 'TIME OUT ' , 0 

EVEN 


END START 


Assemble the fi ; le then run it as a son task with 2kb of memory and 
output port the same as its father 


0 , 2 >MASM NAME5 : SR, #NAME5 : OBJ 
68K PDOS Assembler R2.6e 10/17/84 
y/TI, Copyright 1983 
SkC=NAME5 : SR 
OSJ=#NAME5 :OBJ 


LST= 

ERR= 

XRF= 


END OF PASS 1 

l/7a 0/0000000E: 7280 

END OF PASS 2 [1 WARNING] 


MOVEQ . L 


#128 , D1 


7 USE THE LOCAL EVENT 
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Create son task for program 


0 , 2 > CT NAMES : OBJ , 2, ,1 
*Task #3 
0 , 2 > 

TIME OUT 

TIME OUT Every 5 seconds TIME OUT appears unless event 66 set. 

TIME OUTEV 66[CR] Set event 66 1 

HELLO THERE THIS IS A VERY 
Was 0LONG MESSAGE 
0 , 2 > 

TIME OUT 
TIME OUT 

TIME OUTKT 3[CR] Kill the son task 

0 , 2 > 
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